Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1788,11 +1788,10 @@
   "returns alist mapping string keys in testconfig/subrun to megatest command line switches; if flavor is switch-symbol, maps tcmt symbolic switches to megatest switches"
   (let ((default '(("tag-expr"  . "-tagexpr")
                    ("mode-patt" . "-modepatt")
                    ("run-name"  . "-runname")
                    ("contour"   . "-contour")
-                   ("mode-patt" . "-mode-patt")
                    ("target"    . "-target")
                    ("test-patt" . "-testpatt")
                    ("msg"       . "-m")
                    ("log"       . "-log")
                    ("start-dir" . "-start-dir")

Index: subrun.scm
==================================================================
--- subrun.scm
+++ subrun.scm
@@ -86,11 +86,11 @@
     (configf:write-alist testconfig "testconfig.subrun")))
 
 (define (subrun:set-state-status test-run-dir state status new-state-status)
   (if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
       (let* ((action-switches-str
-              (conc "-set-state-status="new-state-status
+              (conc "-set-state-status "new-state-status
                                 (if state (conc " -state "state ""))
                                 (if status (conc " -status "status) "")))
              (log-prefix (subrun:sanitize-path
                           (conc "set-state-status="new-state-status
                                 (if state (conc ":state="state ""))