Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -110,10 +110,11 @@
 Launching and managing runs
   -run                    : run all tests or as specified by -testpatt
   -remove-runs            : remove the data for a run, requires -runname and -testpatt
                             Optionally use :state and :status, use -keep-records to remove only
                             the run data.
+  -kill-runs               : kill an existing run (all incomplete tests marked abort, launched marked not-started)
   -set-state-status X,Y   : set state to X and status to Y, requires controls per -remove-runs
   -rerun FAIL,WARN...     : force re-run for tests with specificed status(s)
   -rerun-clean            : set all tests not COMPLETED+PASS,WARN,WAIVED to NOT_STARTED,n/a
                             and then run the specified testpatt with -preclean
   -rerun-all              : set all tests to NOT_STARTED,n/a and run with -preclean
@@ -291,10 +292,11 @@
 			"-set-toplog"
 			"-runstep"
 			"-logpro"
 			"-m"
 			"-rerun"
+                        "-kill-runs"
 			"-days"
 			"-rename-run"
 			"-to"
 			;; values and messages
 			":category"
@@ -571,11 +573,11 @@
 		       (process:children #f))
 		      (original-exit exit-code)))))
 
 ;; for some switches always print the command to stderr
 ;;
-(if (args:any? "-run" "-runall" "-remove-runs" "-set-state-status")
+(if (args:any? "-run" "-runall" "-remove-runs" "-set-state-status" "-kill-runs")
     (debug:print 0 *default-log-port* (string-intersperse (argv) " ")))
 
 ;; some switches imply homehost. Exit here if not on homehost
 ;;
 (let ((homehost-required  (list "-cleanup-db" "-server")))
@@ -1060,10 +1062,17 @@
 			      status: (common:args-get-status)
 			      new-state-status: (args:get-arg "-set-state-status")
                               mode: mode)))
       (set! *didsomething* #t)))))
 
+(if (args:get-arg "-kill-runs")
+    (general-run-call 
+     "-kill-runs"
+     "kill runs"
+     (lambda (target runname keys keyvals)
+       (operate-on 'kill-runs mode: #f))))
+
 (if (args:get-arg "-remove-runs")
     (general-run-call 
      "-remove-runs"
      "remove runs"
      (lambda (target runname keys keyvals)

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -2060,10 +2060,15 @@
 		(worker-thread #f))
 	   (debug:print-info 4 *default-log-port* "runs:operate-on run=" run ", header=" header)
 	   (if (not (null? tests))
 	       (begin
 		 (case action
+                   ((kill-runs)
+                    #f
+                    (BB> "UNIMPLEMENTED: kill-runs");; TODO: BB implement it.
+                    (exit 1)
+                    )
 		   ((remove-runs)
 		    ;; (if (tasks:need-server run-id)(tasks:start-and-wait-for-server tdbdat run-id 10))
 		    ;; seek and kill in flight -runtests with % as testpatt here
 		    ;; (if (equal? testpatt "%")
 		    (tasks:kill-runner target run-name testpatt)