Index: fpc-1.9/fcl/xml/xmlread.pp
===================================================================
RCS file: /FPC/CVS/fpc/fcl/xml/xmlread.pp,v
retrieving revision 1.12
diff -u -r1.12 xmlread.pp
--- fpc-1.9/fcl/xml/xmlread.pp	5 Nov 2004 22:32:28 -0000	1.12
+++ fpc-1.9/fcl/xml/xmlread.pp	16 Dec 2004 12:27:34 -0000
@@ -1389,8 +1389,8 @@
     Reader := TXMLReader.Create;
     try
       Reader.ProcessXML(buf, AFilename);
-      ADoc := TXMLDocument(Reader.doc);
     finally
+      ADoc := TXMLDocument(Reader.doc);
       Reader.Free;
     end;
   finally