Index: TECH/Process/Object.cls.xml
===================================================================
diff -u -r2884 -r2888
--- TECH/Process/Object.cls.xml	(.../Object.cls.xml)	(revision 2884)
+++ TECH/Process/Object.cls.xml	(.../Object.cls.xml)	(revision 2888)
@@ -17,7 +17,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	set ..Name = Name
+	set ..Count = Count
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 </Class>