Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r851 -r982
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 851)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 982)
@@ -556,6 +556,22 @@
 	quit ListHasEqualValues
 ]]></Implementation>
 </Method>
+
+<Method name="ListToKeyValueList">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%ListOfDataTypes,Key:%String=""</FormalSpec>
+<ReturnType>TECH.KeyValueList</ReturnType>
+<Implementation><![CDATA[
+	Set KeyValueList = ##class(TECH.KeyValueList).%New()
+	Set ListIt = ##class(TECH.ListIterator).%New(List)
+	While ListIt.HasNext() {
+		#dim Item As %CacheString = ListIt.Next()
+		Set:Key="" Key = ListIt.Key()
+		Do KeyValueList.InsertKeyValuePair(Key, Item)
+	}
+	Quit KeyValueList
+]]></Implementation>
+</Method>
 </Class>