Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2077 -r2079
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2077)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2079)
@@ -770,6 +770,16 @@
 	Quit String
 ]]></Implementation>
 </Method>
+
+<Method name="AppendList">
+<FormalSpec><![CDATA[&List:%ListOfDataTypes,AppendList:%ListOfDataTypes]]></FormalSpec>
+<Implementation><![CDATA[
+	Set ListIterator = ##class(TECH.ListIterator).%New(AppendList)
+	While ListIterator.HasNext() {
+		Do List.Insert(ListIterator.Next())
+	}
+]]></Implementation>
+</Method>
 </Class>