Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r850 -r851
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 850)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 851)
@@ -344,6 +344,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UnieVanPieces">
+<Description>
+Maakt unie van twee piece-delimited strings</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String1:%String,String2:%String,Delim:%String="\"</FormalSpec>
+<Implementation><![CDATA[
+	#dim Lijst1 As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(String1, Delim)
+	#dim Lijst2 As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(String2, Delim)
+	#dim Lijst3 = ##class(TECH.ListUtils).Unie(Lijst1, Lijst2)
+	Quit ##class(TECH.ListUtils).ListToPieces(Lijst3, Delim)
+]]></Implementation>
+</Method>
+
 <Method name="ExistsPropertyWithValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>List:%ListOfObjects,Property:%String,Value:%String=""</FormalSpec>