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))