Index: TECH/Config/ConfigItem.cls.xml
===================================================================
diff -u -r9 -r441
--- TECH/Config/ConfigItem.cls.xml	(.../ConfigItem.cls.xml)	(revision 9)
+++ TECH/Config/ConfigItem.cls.xml	(.../ConfigItem.cls.xml)	(revision 441)
@@ -46,7 +46,7 @@
 Remark: Parameter "Applicatie" is optioneel.</Description>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set applicatie = ##class(TECH.Context.RuntimeContext).Instance().Applicatie
+	#dim applicatie As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie()
 	
 	If (""'=applicatie) {
 		If ..AppSpecifiekeWaarden.IsDefined(applicatie)  Quit ..AppSpecifiekeWaarden.GetAt(applicatie)
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>