Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r2081 -r2097
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2081)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 2097)
@@ -781,6 +781,23 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ConcatenateLists">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Lists...:%ListOfDataTypes</FormalSpec>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	set Iterator = ##class(ArrayOneDimIterator).%New(.Lists)
+	while Iterator.HasNext() {
+		Set ListIterator = ##class(TECH.ListIterator).%New(Iterator.Next())
+		While ListIterator.HasNext() {
+			Do Result.Insert(ListIterator.Next())
+		}
+	}
+	quit Result
+]]></Implementation>
+</Method>
 </Class>