Index: TECH/XMLCorrelater.cls.xml
===================================================================
diff -u -r3113 -r3114
--- TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 3113)
+++ TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 3114)
@@ -27,10 +27,15 @@
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
 	#dim Object As %CacheString
+	#dim Status As %Status
 	Set XMLReader = ##class(%XML.Reader).%New()
-	Do XMLReader.OpenString(String)
+	Set Status = XMLReader.OpenString(String)
+	Do ..ControleerStatusOK(Status,"Kon string '"_String_"' niet openen als XML.")
+	
 	Do XMLReader.Correlate(XmlRootTag,Classname)
-	Do XMLReader.Next(.Object)
+	Do XMLReader.Next(.Object,.Status)
+	Do ..ControleerStatusOK(Status,"Kon string '"_String_"' niet correlaten naar object van het type '"_Classname_"'.")
+	
 	Do XMLReader.Close()
 	Set XMLReader = ""
 	Quit Object
@@ -42,10 +47,15 @@
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
 	#dim Object As %CacheString
+	#dim Status As %Status
 	Set XMLReader = ##class(%XML.Reader).%New()
-	Do XMLReader.OpenStream(Stream)
+	Set Status = XMLReader.OpenStream(Stream)
+	Do ..ControleerStatusOK(Status,"Kon stream niet openen als XML.")
+	
 	Do XMLReader.Correlate(XmlRootTag,Classname)
-	Do XMLReader.Next(.Object)
+	Do XMLReader.Next(.Object,.Status)
+	Do ..ControleerStatusOK(Status,"Kon stream niet correlaten naar object van het type '"_Classname_"'.")
+	
 	Do XMLReader.Close()
 	Set XMLReader = ""
 	Quit Object