@@ -603,16 +603,16 @@
 				     " -testpatt " (conc testname "/" (if (equal? item-path "")
 									  "%"
 									  item-path))
 				     " -v"))))
 	       (clean-run-execute  (lambda (x)
-				     (let ((cmd (conc "bmegatest -remove-runs -target " keystring " -runname " runname
+				     (let ((cmd (conc "megatest -remove-runs -target " keystring " -runname " runname
 						      " -testpatt " (conc testname "/" (if (equal? item-path "")
-											   "%"
-											   item-path))
+						       					   "%"
+						       					   item-path))
 						      ";megatest -target " keystring " -runname " runname 
-						      " -runtests " (conc testname "/" (if (equal? item-path "")
+						      " -run -preclean -testpatt " (conc testname "/" (if (equal? item-path "")
 											   "%" 
 											   item-path))
 						      )))
 				       (system (conc (dtests:get-pre-command)
 						     cmd