Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r846 -r850
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 846)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 850)
@@ -515,6 +515,18 @@
 <FormalSpec>List1:%ListOfDataTypes,List2:%ListOfDataTypes</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim DoorsnedeLijst As %ListOfDataTypes = ..Doorsnede(List1, List2)
+	Quit (DoorsnedeLijst.Count() = List1.Count()) && (DoorsnedeLijst.Count() = List2.Count())
+]]></Implementation>
+</Method>
+
+<Method name="CollectionsAreEqual">
+<Description>
+Werkt ook voor %ArrayOfDataTypes</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List1:%ListOfDataTypes,List2:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
 	#dim ListHasEqualValues As %Boolean = ( List1.Count() = List2.Count() )
 	if ListHasEqualValues {	 	
 		set itList1 = ##class(TECH.ListIterator).%New(List1)