Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r773 -r827
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 773)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 827)
@@ -56,6 +56,11 @@
 <Default>4682||1000</Default>
 </Parameter>
 
+<Parameter name="PersonalityID">
+<Type>%String</Type>
+<Default>1</Default>
+</Parameter>
+
 <Method name="%OnNew">
 <FormalSpec>AManager:Tools.Test.Manager</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -137,6 +142,7 @@
 	#dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
 	do RuntimeContext.ZetApplicatie(..#Applicatie)
 	do RuntimeContext.ZetGebruikerID(..#SuperUser)
+	do RuntimeContext.ZetPersonalityID(..#PersonalityID)
 ]]></Implementation>
 </Method>