Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r499 -r526
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 499)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 526)
@@ -30,6 +30,10 @@
 <Default>0</Default>
 </Parameter>
 
+<Parameter name="Applicatie">
+<Type>%String</Type>
+</Parameter>
+
 <Method name="%OnNew">
 <FormalSpec>AManager:Tools.Test.Manager</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -93,7 +97,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
-	do RuntimeContext.ZetApplicatie("UnitTest")
+	do RuntimeContext.ZetApplicatie(..#Applicatie)
 	do RuntimeContext.ZetGebruikerID("4682||1000")
 ]]></Implementation>
 </Method>