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