@@ -277,10 +277,11 @@
 			"-m"
 			"-rerun"
 			"-days"
 			"-rename-run"
 			"-to"
+                        "-internal-launch-test" 
 			;; values and messages
 			":category"
 			":variable"
 			":value"
 			":expected"
@@ -1688,10 +1689,21 @@
      (lambda (target runname keys keyvals)
        (runs:rollup-run keys
 			keyvals
 			(or (args:get-arg "-runname")(args:get-arg ":runname") )
 			user))))
+
+;;======================================================================
+;; launch test in separate call; takes test run dir as argument.
+;;======================================================================
+(if (args:get-arg "-internal-launch-test")
+    (let ((toppath  (launch:setup)))
+      (launch-test-standalone (args:get-arg "-internal-launch-test"))
+      (set! *didsomething* #t)))
+
+
+
 
 ;;======================================================================
 ;; Lock or unlock a run
 ;;======================================================================