Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r1589 -r1627
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1589)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 1627)
@@ -59,6 +59,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Append">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfDataTypes,Items...:%CacheString</FormalSpec>
+<Implementation><![CDATA[
+	set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.Items)
+	while Iterator.HasNext() { 
+		do List.Insert(Iterator.Next()) 
+	}
+]]></Implementation>
+</Method>
+
 <Method name="IteratorToPieces">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Iterator:TECH.Iterator,Delim:%String="\"</FormalSpec>