Index: vhTest/Mock/TECH/XMLCorrelater.cls.xml
===================================================================
diff -u -r3075 -r3113
--- vhTest/Mock/TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 3075)
+++ vhTest/Mock/TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 3113)
@@ -8,6 +8,13 @@
 <Super>TECH.XMLCorrelater,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="FromStream">
+<FormalSpec>Stream:%Stream.Object,Classname:%String,XmlRootTag:%String=""</FormalSpec>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("FromStream",Stream,Classname,XmlRootTag)
+]]></Implementation>
+</Method>
+
 <Method name="FromString">
 <FormalSpec>String:%String,Classname:%String,XmlRootTag:%String=""</FormalSpec>
 <ReturnType>%CacheString</ReturnType>
Index: vhTest/Fake/TECH/XMLCorrelater.cls.xml
===================================================================
diff -u -r2508 -r3113
--- vhTest/Fake/TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 2508)
+++ vhTest/Fake/TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 3113)
@@ -14,6 +14,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="FromStream">
+<FormalSpec>Stream:%Stream.Object,Classname:%String,XmlRootTag:%String=""</FormalSpec>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="FromString">
 <FormalSpec>String:%String,Classname:%String,XmlRootTag:%String=""</FormalSpec>
 <ReturnType>%CacheString</ReturnType>
Index: TECH/XMLCorrelater.cls.xml
===================================================================
diff -u -r3076 -r3113
--- TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 3076)
+++ TECH/XMLCorrelater.cls.xml	(.../XMLCorrelater.cls.xml)	(revision 3113)
@@ -37,6 +37,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="FromStream">
+<FormalSpec>Stream:%Stream.Object,Classname:%String,XmlRootTag:%String=""</FormalSpec>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	#dim Object As %CacheString
+	Set XMLReader = ##class(%XML.Reader).%New()
+	Do XMLReader.OpenStream(Stream)
+	Do XMLReader.Correlate(XmlRootTag,Classname)
+	Do XMLReader.Next(.Object)
+	Do XMLReader.Close()
+	Set XMLReader = ""
+	Quit Object
+]]></Implementation>
+</Method>
+
 <Method name="ControleerStatusOK">
 <FormalSpec>Status:%Status,Message:%String,Stream:%GlobalCharacterStream=##class(%GlobalCharacterStream).%New()</FormalSpec>
 <Private>1</Private>