diff --git a/fcl/xml/dom.pp b/fcl/xml/dom.pp
index c2f4385bb6..280e29e077 100644
--- a/fcl/xml/dom.pp
+++ b/fcl/xml/dom.pp
@@ -791,7 +791,7 @@ begin
     raise EDOMHierarchyRequest.Create('NodeWC.RemoveChild');
 
   if OldChild = FFirstChild then
-    FFirstChild := nil
+    FFirstChild := FFirstChild.NextSibling
   else
     OldChild.FPreviousSibling.FNextSibling := OldChild.FNextSibling;
 
@@ -1499,7 +1499,11 @@ end.
 
 {
   $Log$
-  Revision 1.15  2000-06-29 08:45:05  sg
+  Revision 1.16  2000-07-09 11:38:33  sg
+  * Fixed TDOMNode_WithChildren.RemoveNode for the case when the node to be
+    removed is the first child node.
+
+  Revision 1.15  2000/06/29 08:45:05  sg
   * RemoveAttributeNode bugfix
 
   Revision 1.14  2000/05/04 18:24:22  sg