Index: Tools/UnitTest/TestCase.cls.xml
===================================================================
diff -u -r301 -r332
--- Tools/UnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 301)
+++ Tools/UnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 332)
@@ -30,7 +30,7 @@
 </Parameter>
 
 <Method name="%OnNew">
-<FormalSpec>AManager</FormalSpec>
+<FormalSpec>AManager:Tools.UnitTest.Manager</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	 Set r%Manager=AManager
@@ -56,6 +56,7 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	set ##class(TECH.Context.RuntimeContext).Instance().Applicatie = "UnitTest"
 	set %VarsInMemoryBefore = 0
 	/// JBL : om vorige niet opgevangen exceptions niet te krijgen in huidige test, deze leeg maken.
 	Set %Exception = "" 
@@ -69,7 +70,7 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-
+	set ##class(TECH.Context.RuntimeContext).Instance().Applicatie = ""
 	set %VarsInMemoryAfter = 0
 	set Var = "%" for  set Var = $order(@Var) quit:Var=""  if ..ValidVar(Var) set %VarsInMemoryAfter=$i(%VarsInMemoryAfter)