Index: TECH/ObjectUtils/impl/DifferenciatorXmlBased.cls.xml
===================================================================
diff -u -r2288 -r2879
--- TECH/ObjectUtils/impl/DifferenciatorXmlBased.cls.xml	(.../DifferenciatorXmlBased.cls.xml)	(revision 2288)
+++ TECH/ObjectUtils/impl/DifferenciatorXmlBased.cls.xml	(.../DifferenciatorXmlBased.cls.xml)	(revision 2879)
@@ -7,21 +7,47 @@
 <FormalSpec>Object:%XML.Adaptor,ReferenceObject:%XML.Adaptor</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	#dim String1 As %String
-	do Object.XMLExportToString(.String1)
-	#dim String2 As %String
-	do ReferenceObject.XMLExportToString(.String2)
-	 
-   	#dim success As %Boolean = ( String1 = String2 )
+	set Stream1 = ##class(%GlobalCharacterStream).%New()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Object.XMLExportToStream(.Stream1,,"literal,indent"))
+	
+	set Stream2 = ##class(%GlobalCharacterStream).%New()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(ReferenceObject.XMLExportToStream(.Stream2,,"literal,indent"))
 
 	set ObjectDifferences = ##class(%ListOfDataTypes).%New()
-	if 'success {
-		do ObjectDifferences.Insert(String1_$$$CRLF_String2)
+	
+	if $$$Not(Stream1.Size = Stream2.Size) {
+		do ObjectDifferences.Insert(Stream1.Size _ "<>" _ Stream2.Size)
 	}
 	
+	#dim LineCounter As %Integer = 0
+	while $$$Not(Stream1.AtEnd && Stream2.AtEnd) {
+		set LineCounter = LineCounter + 1
+		#dim Stream1Line As %String = ..GetLine(Stream1)
+		#dim Stream2Line As %String = ..GetLine(Stream2)
+		if $$$Not(Stream1Line = Stream2Line) {
+			do ObjectDifferences.Insert("o1: " _ ##class(TECH.StringUtils).AlignRight(LineCounter,"0",4)_ ":" _ Stream1Line )
+			do ObjectDifferences.Insert("o2: " _ ##class(TECH.StringUtils).AlignRight(LineCounter,"0",4)_ ":" _ Stream2Line )
+		}
+	} 
+	
 	quit ObjectDifferences
 ]]></Implementation>
 </Method>
+
+<Method name="GetLine">
+<FormalSpec>Stream:%Stream.Object</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Line As %String
+	try {
+		set Line = Stream.ReadLine()
+	} catch {
+		set Line = "[-- End of stream reached --]"
+		do ##class(TECH.ExceptionHandler).Catch()
+	}
+	quit Line
+]]></Implementation>
+</Method>
 </Class>