@@ -112,11 +112,11 @@
     update-run-event_time
     mark-incomplete
     set-state-status-and-roll-up-run
     ;; STEPS
     teststep-set-status!
-
+    delete-steps-for-test
     ;; TEST DATA
     test-data-rollup
     csv->test-data
 
     ;; MISC
@@ -216,11 +216,12 @@
                    ((set-var)                      (apply db:set-var dbstruct params))
                    ((del-var)                      (apply db:del-var dbstruct params))
 
                    ;; STEPS
                    ((teststep-set-status!)         (apply db:teststep-set-status! dbstruct params))
-
+                   ((delete-steps-for-test!)        (apply db:delete-steps-for-test! dbstruct params))
+                   
                    ;; TEST DATA
                    ((test-data-rollup)             (apply db:test-data-rollup dbstruct params))
                    ((csv->test-data)               (apply db:csv->test-data dbstruct params))
 
                    ;; MISC