@@ -1326,11 +1326,13 @@
 		      (begin
 			(print "ERROR: Unknown key in packet \"" key "\" with value \"" val "\"")
 			res)))))
 	  (conc "megatest " (if (not (member action '("sync")))
 				(conc action " " action-param)
-				""))
+				"") (if (member action '("-run" "-rerun-clean" "-rerun-all" "-kill-rerun"))
+                                                        "-rerun DEAD,ABORT,KILLED"
+                                                        ""))
 	  pkta)))
 
 ;; (use trace)(trace pkt->cmdline)
 
 (define (write-pkt pktsdir uuid pkt)