Index: TECH/XMLCorrelater.cls.xml
===================================================================
diff -u -r1466 -r1470
--- TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 1466)
+++ TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 1470)
@@ -10,20 +10,19 @@
 		#dim Object As %CacheString
 		Set XMLReader = ##class(%XML.Reader).%New()
 		#dim Status As %Status = XMLReader.OpenFile(BestandNaam)
-		Do ..ControleerStatus(Status,"Kon bestand '"_BestandNaam_"' niet openen als XML.")
+		Do ..ControleerStatusOK(Status,"Kon bestand '"_BestandNaam_"' niet openen als XML.")
 		
 		Do XMLReader.Correlate(XMLRootTag,ObjectKlasseNaam)
-		#dim sc As %Status
-		Do XMLReader.Next(.Object,.sc)
-		Do ..ControleerStatus(Status,"Kon bestand '"_BestandNaam_"' niet correlaten naar object van het type '"_ObjectKlasseNaam_"'.")
-			
+		Do XMLReader.Next(.Object,.Status)
+		Do ..ControleerStatusOK(Status,"Kon bestand '"_BestandNaam_"' niet correlaten naar object van het type '"_ObjectKlasseNaam_"'.")
+		
 		Do XMLReader.Close()
 		Set XMLReader = ""
 		Quit Object
 ]]></Implementation>
 </Method>
 
-<Method name="ControleerStatus">
+<Method name="ControleerStatusOK">
 <FormalSpec>Status:%Status,Message:%String,Stream:%GlobalCharacterStream=##class(%GlobalCharacterStream).%New()</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[