Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r431 -r441
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 431)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 441)
@@ -13,6 +13,7 @@
 
 <Property name="Applicatie">
 <Type>%String</Type>
+<Private>1</Private>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
@@ -208,6 +209,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetApplicatie">
+<FormalSpec>Applicatie:%String</FormalSpec>
+<Implementation><![CDATA[	set ..Applicatie = Applicatie
+]]></Implementation>
+</Method>
+
+<Method name="GeefApplicatie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..Applicatie
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>