@@ -118,10 +118,19 @@
             (begin
               (subrun:set-subrun-removed test-run-dir)
               #t)
             #f))
       #t))
+
+(define (subrun:kill-subrun test-run-dir )
+  (if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
+      (let* ((action-switches-str
+              (conc "-kill-runs" ))
+             (kill-result
+              (subrun:exec-sub-megatest test-run-dir action-switches-str "kill")))
+        kill-result)
+      #t))
 
 (define (subrun:launch-cmd test-run-dir)
   (if (subrun:subrun-removed? test-run-dir)
       (subrun:unset-subrun-removed test-run-dir))