Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r181 -r185
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 181)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 185)
@@ -342,6 +342,16 @@
 	Quit Maximum
 ]]></Implementation>
 </Method>
+
+<Method name="IsDeelverzamelingVan">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Lijst1:%ListOfDataTypes,Lijst2:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim LengteKleinsteLijst As %Integer = ##class(TECH.Math).Min(Lijst1.Count(),Lijst2.Count())
+	Quit ..Doorsnede(Lijst1,Lijst2).Count() = LengteKleinsteLijst
+]]></Implementation>
+</Method>
 </Class>