@@ -853,14 +853,14 @@ (debug:print 0 "ERROR: Attempted " action "on test(s) but run area config file not found") (exit 1)) ;; put test parameters into convenient variables (runs:operate-on action target - (or (args:get-arg "-runname")(args:get-arg ":runname")) - (args:get-arg "-testpatt") - state: (or (args:get-arg "-state")(args:get-arg ":state") ) - status: (or (args:get-arg "-status")(args:get-arg ":status")) + (common:args-get-runname) ;; (or (args:get-arg "-runname")(args:get-arg ":runname")) + (common:args-get-testpatt) ;; (args:get-arg "-testpatt") + state: (common:args-get-state) + status: (common:args-get-status) new-state-status: (args:get-arg "-set-state-status"))) (set! *didsomething* #t))))) (if (args:get-arg "-remove-runs") (general-run-call