Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -140,10 +140,11 @@
 Run management:		     
    run                       : initiate or resume a run, already completed and in-progress
                                tests are not affected.
    rerun-clean               : clean and rerun all not completed pass/fail tests
    rerun-all                 : clean and rerun entire run
+   kill-run                  : kill all tests in run
    remove                    : remove runs
    set-ss                    : set state/status
    archive                   : compress and move test data to archive disk
    kill                      : stop tests or entire runs
    db                        : database utilities
@@ -247,10 +248,11 @@
 ;; alist to map actions to old megatest commands
 (define *action-keys*
   '((run         . "-run")
     (rerun-clean . "-rerun-clean")
     (rerun-all   . "-rerun-all")
+    (kill-run    . "-kill-runs")
     (sync        . "")
     (archive     . "-archive")
     (set-ss      . "-set-state-status")
     (remove      . "-remove-runs")))
 
@@ -1443,11 +1445,11 @@
 	(set! *default-log-port* oup)
 )))
 
 (if *action*
     (case (string->symbol *action*)
-      ((run remove rerun rerun-clean rerun-all set-ss archive kill list)
+      ((run remove rerun rerun-clean rerun-all set-ss archive kill list kill-run)
        (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
 	      (mtconf    (car mtconfdat))
 	      (area      (args:get-arg "-area")) ;; look up the area to dispatch to from [areas] section
 	      (areasec   (if area (configf:lookup mtconf "areas" area) #f))
 	      (areadat   (if areasec (common:val->alist areasec) #f))