Index: CSPimpl/VH/TestRunService.cls.xml
===================================================================
diff -u -r54807 -r54808
--- CSPimpl/VH/TestRunService.cls.xml	(.../TestRunService.cls.xml)	(revision 54807)
+++ CSPimpl/VH/TestRunService.cls.xml	(.../TestRunService.cls.xml)	(revision 54808)
@@ -4,37 +4,39 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="RunTest">
-<FormalSpec>LadeType:%String</FormalSpec>
+<Description>
+http://localhost:57772/csp/dev1/VH/TestRun.csp</Description>
+<FormalSpec>KeyWord:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(1)
-	Do ##class(TECH.BackgroundProcess.impl.Starter).StartProcess("CSPimpl.VH.TestRunService", "RunTesten",LadeType)
+	Do ##class(TECH.BackgroundProcess.impl.Starter).StartProcess("CSPimpl.VH.TestRunService", "RunTesten",KeyWord)
 ]]></Implementation>
 </Method>
 
 <Method name="RunTesten">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeType:%String</FormalSpec>
+<FormalSpec>KeyWord:%String</FormalSpec>
 <Implementation><![CDATA[
-	If (LadeType = "Tax") {
+	If (KeyWord = "Tax") {
 		Do ..RunTAXTesten()
-	}
-	If (LadeType = "Tbx") {
+	} ElseIf (KeyWord = "Tbx") {
 		Do ..RunTBXTesten()
-	}
-	If (LadeType = "Lbx") {
+	} ElseIf (KeyWord = "Lbx") {
 		Do ..RunLBXTesten()
+	} ElseIf (KeyWord = "Alle") {
+		Do ..RunAlleTesten("")
+	} Else {
+		Do ..RunAlleTesten(KeyWord)
 	}
-	If (LadeType = "Alle") {
-		Do ..RunAlleTesten()
-	}
 ]]></Implementation>
 </Method>
 
 <Method name="RunAlleTesten">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>KeyWord:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##class(vhUnitTest.Manager).RunTest("/display=all/typestorun=ui","")
-	do ##class(vhTest.Integratie.Manager).RunTest("/display=all","")
+	do ##class(vhUnitTest.Manager).RunTest("/display=all/typestorun=ui",KeyWord)
+	do ##class(vhTest.Integratie.Manager).RunTest("/display=all",KeyWord)
 ]]></Implementation>
 </Method>