Merged revisions 8028 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r8028 | Almindor | 2007-07-12 21:50:38 +0200 (Thu, 12 Jul 2007) | 2 lines
  
  * fix bug #9222 by Sergei Gorelkin
........

git-svn-id: branches/fixes_2_2@8213 -

packages/fcl-xml/src/dom.pp

@@ -1014,8 +1014,8 @@ end;
 
 destructor TDOMNode_WithChildren.Destroy;
 begin
-  FreeAndNil(FChildNodeTree);
   FreeChildren;
+  FreeAndNil(FChildNodeTree);  
   inherited Destroy;
 end;
 
@@ -1243,6 +1243,8 @@ procedure TDOMNode_WithChildren.FreeChildren;
 var
   child, next: TDOMNode;
 begin
+  if Assigned(FChildNodeTree) then
+    FChildNodeTree.Clear;
   child := FFirstChild;
   while Assigned(child) do
   begin