* r13729 was broken due to missing typecast, shame on me. Fixed.

git-svn-id: trunk@13787 -

packages/fcl-xml/tests/domunit.pp

@@ -323,7 +323,7 @@ begin
   src := TXMLInputSource.Create(data);
   try
     FParser.Parse(src, TXMLDocument(Doc));
-    GC(Doc);
+    GC(TObject(Doc));
   finally
     src.Free;
   end;