Index: TECH/Repository.cls.xml
===================================================================
diff -u -r1672 -r1685
--- TECH/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1672)
+++ TECH/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1685)
@@ -19,6 +19,19 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="ResultSetToListOfDataTypes">
+<FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	while ResultSet.Next() {
+		Do List.Insert(ResultSet.GetData(1))
+	}
+	quit List
+]]></Implementation>
+</Method>
 </Class>