Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2193 -r2200
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2193)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2200)
@@ -200,23 +200,44 @@
 ]]></Implementation>
 </Method>
 
-<Method name="AtomicItemsAdd">
+<Method name="CreateListOfDataTypes">
 <Description>
 Oproepen via 
-  set Lijst=##class(TECH.ListUtils).AtomicItemsAdd("value1","value2","value3","value4")</Description>
+  set Lijst=##class(TECH.ListUtils).CreateListOfDataTypes("value1","value2","value3", ... </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ArgItems...:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set list=##class(%ListOfDataTypes).%New()
-	 
-	Set i=$O(ArgItems(""))
+	Do ..FillList(list, .ArgItems)
+	Quit list
+]]></Implementation>
+</Method>
+
+<Method name="CreateListOfObjects">
+<Description>
+Oproepen via 
+  set Lijst=##class(TECH.ListUtils).CreateListOfObjects(obj1,obj2,obj3, ... </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ArgItems...:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set list=##class(%ListOfObjects).%New()
+	Do ..FillList(list, .ArgItems)
+	Quit list
+]]></Implementation>
+</Method>
+
+<Method name="FillList">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>list:%AbstractList,mdArgItems:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set i=$O(mdArgItems(""))
 	While (i'="") {
-		Do list.Insert(ArgItems(i))
-		Set i=$O(ArgItems(i))
+		Do list.Insert(mdArgItems(i))
+		Set i=$O(mdArgItems(i))
 	}
-	
-	Quit list
 ]]></Implementation>
 </Method>
 </Class>