Index: TECH/ObjectUtils/impl/Differenciator.cls.xml
===================================================================
diff -u -r2085 -r2835
--- TECH/ObjectUtils/impl/Differenciator.cls.xml	(.../Differenciator.cls.xml)	(revision 2085)
+++ TECH/ObjectUtils/impl/Differenciator.cls.xml	(.../Differenciator.cls.xml)	(revision 2835)
@@ -18,12 +18,12 @@
 		#dim PropertyInfo As %list = itProperties.Next()
 		#dim Property As %String = itProperties.Key()
 		
-		continue:(##class(%Dictionary.CompiledProperty).%OpenId(Object.%ClassName(1)_"||"_Property).Private)
+		continue:$ListGet(PropertyInfo,4)
 		
 		#dim PropertyIsCollection As %Boolean = $length($list(PropertyInfo,3))
 
-		#dim WaardePropertyObject As %CacheString = $property(Object,Property)
-		#dim WaardePropertyVerwachtObject As %CacheString = $property(ReferenceObject,Property)
+		#dim WaardePropertyObject As %CacheString = ..GeefWaarde(Object,Property)
+		#dim WaardePropertyVerwachtObject As %CacheString = ..GeefWaarde(ReferenceObject,Property)
 		
 		if PropertyIsCollection {
 			if $method(WaardePropertyObject,"Count") '= $method(WaardePropertyVerwachtObject,"Count") {
@@ -46,6 +46,22 @@
 	quit ObjectDifferences
 ]]></Implementation>
 </Method>
+
+<Method name="GeefWaarde">
+<FormalSpec>Object:%Base,Property:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	If Property["." {
+		New result
+		New code Set code = "set result = Object."_Property xecute code
+		Quit result
+	} Else {
+		Quit $property(Object,Property)
+	}
+]]></Implementation>
+</Method>
 </Class>