Index: TECH/Context.cls.xml
===================================================================
diff -u -r1739 -r1914
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 1739)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 1914)
@@ -77,6 +77,11 @@
 <Default>PersistentObjectAPI</Default>
 </Parameter>
 
+<Parameter name="ObjectAPI">
+<Type>%String</Type>
+<Default>ObjectAPI</Default>
+</Parameter>
+
 <Parameter name="FormatAPI">
 <Type>%String</Type>
 <Default>FormatAPI</Default>
@@ -193,6 +198,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefObjectAPI">
+<ReturnType>TECH.Object.ObjectAPI</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefAPIObject(..#ObjectAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushObjectAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#ObjectAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopObjectAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#ObjectAPI)
+]]></Implementation>
+</Method>
+
 <Method name="GeefMailAPI">
 <ReturnType>TECH.Mail.MailAPI</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefAPIObject(..#MailAPI)