Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -813,15 +813,24 @@
 	      (if (not (equal? item-path ""))
 		  (tests:summarize-items run-id test-id test-name #f))
 	      (tests:summarize-test run-id test-id)  ;; don't force - just update if no
 	      (rmt:update-run-stats run-id (rmt:get-raw-run-stats run-id)))
 	    (mutex-unlock! m)
+
+            (launch:end-of-run-check run-id)
+
+            
 	    (debug:print 2 *default-log-port* "Output from running " fullrunscript ", pid " (launch:einf-pid exit-info) " in work area " 
 			 work-area ":\n====\n exit code " (launch:einf-exit-code exit-info) "\n" "====\n")
 	    (if (not (launch:einf-exit-status exit-info))
 		(exit 4))))
         )))
+
+(define (launch:end-of-run-check run-id)
+  (debug:print 0 *default-log-port* "end-of-run-check would go here for run-id="run-id)
+  #f)
+
 
 ;; DO NOT USE - caching of configs is handled in launch:setup now.
 ;;
 (define (launch:cache-config)
   ;; if we have a linktree and -runtests and -target and the directory exists dump the config

Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -217,10 +217,12 @@
     ("-run-name"        . n)
     ("-mode-patt"       . o)
     ("-test-patt"       . p)  ;; idea, enhance margs ("-test-patt" "-testpatt") => yields one value in "-test-patt"
     ("-status"          . s)
     ("-target"          . t)
+    ("-reqtarg"         . R)
+
     ("-tag-expr"        . x)
     ;; misc
     ("-debug"           . #f)  ;; for *verbosity* > 2
     ("-load"            . #f)  ;; load and exectute a scheme file
     ("-log"             . #f)
@@ -241,10 +243,11 @@
     ;; misc	        
     ("-repl"            . #f)
     ("-immediate"       . I)
     ("-preclean"        . r)
     ("-prepend-contour" . w)
+    ("-force"           . F)
     ("-list-pkt-keys"   . #f)
     ))
 
 ;; alist to map actions to old megatest commands
 (define *action-keys*
@@ -251,10 +254,12 @@
   '((run         . "-run")
     (rerun-clean . "-rerun-clean")
     (rerun-all   . "-rerun-all")
     (kill-run    . "-kill-runs")
     (kill-rerun  . "-kill-rerun")
+    (lock        . "-lock")
+    (unlock      . "-unlock")
     (sync        . "")
     (archive     . "-archive")
     (set-ss      . "-set-state-status")
     (remove      . "-remove-runs")))
 
@@ -1447,11 +1452,12 @@
 	(set! *default-log-port* oup)
 )))
 
 (if *action*
     (case (string->symbol *action*)
-      ((run remove rerun rerun-clean rerun-all set-ss archive kill list kill-run kill-rerun)
+      ((run remove rerun rerun-clean rerun-all set-ss archive kill list kill-run kill-rerun lock unlock)
+          
        (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))