Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2069 -r2193
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2069)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2193)
@@ -199,5 +199,25 @@
     quit list
 ]]></Implementation>
 </Method>
+
+<Method name="AtomicItemsAdd">
+<Description>
+Oproepen via 
+  set Lijst=##class(TECH.ListUtils).AtomicItemsAdd("value1","value2","value3","value4")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ArgItems...:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set list=##class(%ListOfDataTypes).%New()
+	 
+	Set i=$O(ArgItems(""))
+	While (i'="") {
+		Do list.Insert(ArgItems(i))
+		Set i=$O(ArgItems(i))
+	}
+	
+	Quit list
+]]></Implementation>
+</Method>
 </Class>
 </Export>