Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r982 -r1036
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 982)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1036)
@@ -528,6 +528,7 @@
 <FormalSpec>List1:%ListOfDataTypes,List2:%ListOfDataTypes</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	Quit:$$$Not( List1.Count() = List2.Count() ) 0
 	#dim DoorsnedeLijst As %ListOfDataTypes = ..Doorsnede(List1, List2)
 	Quit (DoorsnedeLijst.Count() = List1.Count()) && (DoorsnedeLijst.Count() = List2.Count())
 ]]></Implementation>