@@ -1805,16 +1805,13 @@
 	       (for-each (lambda (spec) 
 			   (let* ((precmd     (if (args:get-arg "-precmd")(conc (args:get-arg "-precmd") " ") ""))
 				  (newcmdline (conc
 					       precmd
 					       (string-substitute
-						(conc "target " target)
-						(conc "target " (simple-run-target spec))
-						(string-substitute
-						 (conc "runname " runname)
-						 (conc "runname " (simple-run-runname spec))
-						 orig-cmdline)))))
+						(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))))))