Index: TECH/Context.cls.xml
===================================================================
diff -u -r815 -r912
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 815)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 912)
@@ -37,6 +37,11 @@
 <Default>HttpAPI</Default>
 </Parameter>
 
+<Parameter name="FileAPI">
+<Type>%String</Type>
+<Default>FileAPI</Default>
+</Parameter>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Context</ReturnType>
@@ -126,6 +131,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFileAPI">
+<ReturnType>TECH.File.FileAPI</ReturnType>
+<Implementation><![CDATA[	quit ..GeefAPIObject(..#FileAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushFileAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#FileAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopFileAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#FileAPI)
+]]></Implementation>
+</Method>
+
 <Method name="Reset">
 <Implementation><![CDATA[
 	Set APINamenIterator = ##class(TECH.ListIterator).%New(..APINamen)