Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r390 -r453
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 390)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 453)
@@ -415,6 +415,22 @@
 	Quit ValueList
 ]]></Implementation>
 </Method>
+
+<Method name="KeyList">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>List:%Collection.AbstractIterator</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set KeyList = ##class(%ListOfDataTypes).%New()
+	#dim Key As %String = List.Next("")
+	While (Key '="")
+	{
+		Do KeyList.Insert(Key)
+		Set Key = List.Next(Key)
+	}
+	Quit KeyList
+]]></Implementation>
+</Method>
 </Class>