diff --git a/packages/webidl/src/webidldefs.pp b/packages/webidl/src/webidldefs.pp
index 5c9dfddc6a..62c229e0c3 100644
--- a/packages/webidl/src/webidldefs.pp
+++ b/packages/webidl/src/webidldefs.pp
@@ -67,7 +67,10 @@ Type
     wibtUint32Array,
     wibtUint8ClampedArray,
     wibtFloat32Array,
-    wibtFloat64Array
+    wibtFloat64Array,
+    wibtDocument,
+    wibtDocumentFragment,
+    wibtNode
     );
   TWebIDLBaseTypes = set of TWebIDLBaseType;
 const
@@ -110,7 +113,10 @@ const
     'Uint32Array',
     'Uint8ClampedArray',
     'Float32Array',
-    'Float64Array');
+    'Float64Array',
+    'Document',
+    'DocumentFragment',
+    'Node');
 
 type
 
diff --git a/packages/webidl/src/webidltopas.pp b/packages/webidl/src/webidltopas.pp
index 8fb7b2246c..0827e5929f 100644
--- a/packages/webidl/src/webidltopas.pp
+++ b/packages/webidl/src/webidltopas.pp
@@ -928,7 +928,10 @@ begin
     'Uint32Array',
     'Uint8ClampedArray',
     'Float32Array',
-    'Float64Array': Result:=GetPasClassName(aTypeName);
+    'Float64Array',
+    'Document',
+    'DocumentFragment',
+    'Node': Result:=GetPasClassName(aTypeName);
 
     'void': Result:=aTypeName;
   else