Index: TECH/Context.cls.xml
===================================================================
diff -u -r515 -r666
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 515)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 666)
@@ -27,6 +27,11 @@
 <Default>MailAPI</Default>
 </Parameter>
 
+<Parameter name="DateTimeAPI">
+<Type>%String</Type>
+<Default>DateTimeAPI</Default>
+</Parameter>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Context</ReturnType>
@@ -46,6 +51,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ..InitAPIStack(..#MailAPI)
+	Do ..InitAPIStack(..#DateTimeAPI)
 	Do ..Reset()
 	Quit $$$OK
 ]]></Implementation>
@@ -68,6 +74,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDateTimeAPI">
+<ReturnType>TECH.Mail.MailAPI</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefAPIObject(..#DateTimeAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushDateTimeAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#DateTimeAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopDateTimeAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#DateTimeAPI)
+]]></Implementation>
+</Method>
+
 <Method name="Reset">
 <Implementation><![CDATA[
 	Set APINamenIterator = ##class(TECH.ListIterator).%New(..APINamen)
@@ -78,6 +101,7 @@
 	
 	// Put defaults on the stack
 	Do ..PushMailAPIClassName("TECH.Mail.impl.MailAPI")
+	Do ..PushDateTimeAPIClassName("TECH.DateTime")
 ]]></Implementation>
 </Method>