Index: TECH/Process/impl/ProcessAPI.cls.xml
===================================================================
diff -u -r2088 -r2884
--- TECH/Process/impl/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2088)
+++ TECH/Process/impl/ProcessAPI.cls.xml	(.../ProcessAPI.cls.xml)	(revision 2884)
@@ -8,6 +8,30 @@
 <Implementation><![CDATA[	hang Seconds
 ]]></Implementation>
 </Method>
+
+<Method name="GeefObjectsInMemory">
+<ReturnType>TECH.Process.ObjectList</ReturnType>
+<Implementation><![CDATA[
+	set IO = ##class(TECH.IO).%New()
+	do IO.Redirect()
+	do $system.OBJ.ShowObjects()
+	do IO.Reset()
+
+	set ObjectList = ##class(TECH.Process.ObjectList).%New()
+	
+	#dim Stream As %Stream.Object = IO.GeefStream()
+	do Stream.ReadLine()
+	do Stream.ReadLine()
+	
+	while $$$Not(Stream.AtEnd) {
+		#dim Line As %String = Stream.ReadLine()
+		while (Line["  ") { set Line = $replace(Line ,"  "," ") }
+		do ObjectList.Insert(##class(TECH.Process.Object).%New($piece(Line," ",2),$piece(Line," ",3)))
+	}
+	
+	quit ObjectList
+]]></Implementation>
+</Method>
 </Class>