Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r739 -r770
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 739)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 770)
@@ -416,13 +416,21 @@
 		#dim WaardePropertyVerwachtObject As %CacheString = $property(VerwachtObject,Property)
 		
 		if PropertyIsCollection {
-			set WaardePropertyObject = $method(WaardePropertyObject,"Count")
-			set WaardePropertyVerwachtObject = $method(WaardePropertyVerwachtObject,"Count")
-		}
-		
-		if WaardePropertyObject '= WaardePropertyVerwachtObject {
+			if $method(WaardePropertyObject,"Count") '= $method(WaardePropertyVerwachtObject,"Count") {
+				do Verschillen.Insert(Property_" : "_$method(WaardePropertyObject,"Count") _" <> "_ $method(WaardePropertyVerwachtObject,"Count") )
+			} else {
+				set itList1 = ##class(TECH.ListIterator).%New(WaardePropertyObject)
+				set itList2 = ##class(TECH.ListIterator).%New(WaardePropertyVerwachtObject)
+				while itList1.HasNext() && success {
+					#dim Value1 As %String = itList1.Next()
+					#dim Value2 As %String = itList2.Next()
+					set success = ( Value1 = Value2)
+					do Verschillen.Insert("Item "_itList1.Key()_" verschillend : *"_Value1 _ "* <> *"_Value2_"*")
+				}
+			}
+		} elseif WaardePropertyObject '= WaardePropertyVerwachtObject {
 			do Verschillen.Insert(Property_" : "_WaardePropertyObject _" <> "_ WaardePropertyVerwachtObject )
-		}	
+		}
 	}
 	
 	if Verschillen.Count() {