Index: TECH/ListUtils.cls.xml
===================================================================
diff -u -r349 -r390
--- TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 349)
+++ TECH/ListUtils.cls.xml	(.../ListUtils.cls.xml)	(revision 390)
@@ -400,6 +400,21 @@
 	quit newList
 ]]></Implementation>
 </Method>
+
+<Method name="ArrayOfObjectsToValueList">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Array:%ArrayOfObjects</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set ValueList = ##class(%ListOfObjects).%New()
+	Set Iterator = ##class(TECH.ListIterator).%New(Array)
+	While (Iterator.HasNext())
+	{
+		Do ValueList.Insert(Iterator.Next())
+	}
+	Quit ValueList
+]]></Implementation>
+</Method>
 </Class>