Index: TECH/XMLCorrelater.cls.xml
===================================================================
diff -u -r1470 -r2254
--- TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 1470)
+++ TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 2254)
@@ -1,24 +1,24 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.XMLCorrelater">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="GeefObjectVanBestand">
-<FormalSpec>BestandNaam:%String,ObjectKlasseNaam:%String,XMLRootTag:%String</FormalSpec>
+<FormalSpec>BestandNaam:%String,ObjectKlasseNaam:%String,XMLRootTag:%String=""</FormalSpec>
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-		#dim Object As %CacheString
-		Set XMLReader = ##class(%XML.Reader).%New()
-		#dim Status As %Status = XMLReader.OpenFile(BestandNaam)
-		Do ..ControleerStatusOK(Status,"Kon bestand '"_BestandNaam_"' niet openen als XML.")
-		
-		Do XMLReader.Correlate(XMLRootTag,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
+	#dim Object As %CacheString
+	Set XMLReader = ##class(%XML.Reader).%New()
+	#dim Status As %Status = XMLReader.OpenFile(BestandNaam)
+	Do ..ControleerStatusOK(Status,"Kon bestand '"_BestandNaam_"' niet openen als XML.")
+	
+	Do XMLReader.Correlate(XMLRootTag,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>