Index: TECH/ListOfObjects.cls.xml
===================================================================
diff -u -r1612 -r3837
--- TECH/ListOfObjects.cls.xml	(.../ListOfObjects.cls.xml)	(revision 1612)
+++ TECH/ListOfObjects.cls.xml	(.../ListOfObjects.cls.xml)	(revision 3837)
@@ -13,7 +13,9 @@
 <FormalSpec>initvalue:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	set ..Items = ##class(%ListOfObjects).%New()
+<Implementation><![CDATA[
+	set ..Items = ##class(%ListOfObjects).%New()
+	Quit $$$OK
 ]]></Implementation>
 </Method>