@@ -1801,17 +1801,20 @@
 	       (debug:print-info 0 *default-log-port* "Pattern supplied for target or runname with "
 				 (length run-specs) " matches round. Running each in turn.")
 	       (if (null? run-specs)
 		   (debug:print 0 *default-log-port* "WARNING: No runs match target " target " and runname " runname))
 	       (for-each (lambda (spec) 
-			   (let* ((newcmdline (string-substitute
-					       (conc "target " target)
-					       (conc "target " (simple-run-target spec))
+			   (let* ((precmd     (if (args:get-arg "-precmd")(conc (args:get-arg "-precmd") " ") ""))
+				  (newcmdline (conc
+					       precmd
 					       (string-substitute
-						(conc "runname " runname)
-						(conc "runname " (simple-run-runname spec))
-						orig-cmdline))))
+						(conc "target " target)
+						(conc "target " (simple-run-target spec))
+						(string-substitute
+						 (conc "runname " runname)
+						 (conc "runname " (simple-run-runname spec))
+						 orig-cmdline)))))
 			     (debug:print 0 *default-log-port* "ORIG: " orig-cmdline)
 			     (debug:print 0 *default-log-port* "NEW:  " newcmdline)
 			     (system newcmdline)))
 			 run-specs))
 	     (handle-run-requests target runname keys keyvals need-clean))))))