Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -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

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -3323,11 +3323,26 @@
       db
       "INSERT OR REPLACE into test_steps (test_id,stepname,state,status,event_time,comment,logfile) VALUES(?,?,?,?,?,?,?);"
       test-id teststep-name state-in status-in (current-seconds)
       (if comment comment "")
       (if logfile logfile "")))))
-   
+
+
+
+(define (db:delete-steps-for-test! dbstruct run-id test-id)
+  ;; TODO: figure out why status is the key field rather than state (note:  CONSTRAINT test_steps_constraint UNIQUE (test_id,stepname,state) )
+  (db:with-db
+   dbstruct
+   run-id
+   #t
+   (lambda (db)
+     (sqlite3:execute 
+      db
+      "UPDATE test_steps set status='DELETED' where test_id=?" ;;  and run_id=? !! - run_id not in table (bummer) TODO: get run_id into schema for test_steps
+      test-id))))
+
+
 ;; db-get-test-steps-for-run
 (define (db:get-steps-for-test dbstruct run-id test-id)
   (db:with-db
    dbstruct
    run-id

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -1272,11 +1272,13 @@
          (status        (db:test-get-status testinfo))
          (test-status-color (car (gutils:get-color-for-state-status state status)))
          (running-color (car (gutils:get-color-for-state-status "RUNNING" "STARTED")))
          (failcolor     (car (gutils:get-color-for-state-status "COMPLETED" "FAIL"))))
     (if (null? teststeps)
-	(iup:attribute-set! steps-matrix "CLEARVALUE" "CONTENTS")
+	(begin
+          (iup:attribute-set! steps-matrix "CLEARATTRIB" "CONTENTS")
+          (iup:attribute-set! steps-matrix "CLEARVALUE" "CONTENTS"))
 	(let loop ((hed    (car teststeps))
 		   (tal    (cdr teststeps))
 		   (rownum 1)
 		   (colnum 1))
 	  (if (> rownum max-row)(set! max-row rownum))

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -85,11 +85,11 @@
 	   ((equal? status "PASS") "PASS") ;; skip the message part if status is pass
 	   (status (conc (configf:lookup dat "final" "exit-status") ": " (if msg msg "no message")))
 	   (else #f)))
 	#f)))
 
-(define (launch:runstep ezstep run-id test-id exit-info m tal testconfig)
+(define (launch:runstep ezstep run-id test-id exit-info m tal testconfig) ;;; TODO: deprecate me in favor of ezsteps.scm
   (let* ((stepname       (car ezstep))  ;; do stuff to run the step
 	 (stepinfo       (cadr ezstep))
 	;; (let ((info (cadr ezstep)))
 	;; 		   (if (proc? info) "" info)))
 	;; (stepproc       (let ((info (cadr ezstep)))
@@ -645,11 +645,14 @@
 	      (rmt:test-set-state-status run-id test-id "REMOTEHOSTSTART" "n/a" #f)
 	      )
 	     (else ;; (member (db:test-get-state test-info) '("REMOVING" "REMOTEHOSTSTART" "RUNNING" "KILLREQ"))
 	      (debug:print-error 0 *default-log-port* "test state is " (db:test-get-state test-info) ", cannot proceed")
 	      (exit))))
-	  
+
+          ;; cleanup prior execution's steps
+          (rmt:delete-steps-for-test! run-id test-id)
+          
 	  (debug:print 2 *default-log-port* "Executing " test-name " (id: " test-id ") on " (get-host-name))
 	  (set! keys       (rmt:get-keys))
 	  ;; (runs:set-megatest-env-vars run-id inkeys: keys inkeyvals: keyvals) ;; these may be needed by the launching process
 	  ;; one of these is defunct/redundant ...
 	  (if (not (launch:setup force-reread: #t))

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -861,10 +861,14 @@
     (if (or (not state)(not status))
 	(debug:print 3 *default-log-port* "WARNING: Invalid " (if status "status" "state")
 		     " value \"" (if status state-in status-in) "\", update your validvalues section in megatest.config"))
     (rmt:send-receive 'teststep-set-status! run-id (list run-id test-id teststep-name state-in status-in comment logfile))))
 
+
+(define (rmt:delete-steps-for-test! run-id test-id)
+  (rmt:send-receive 'delete-steps-for-test! run-id (list run-id test-id)))
+
 (define (rmt:get-steps-for-test run-id test-id)
   (rmt:send-receive 'get-steps-for-test run-id (list run-id test-id)))
 
 (define (rmt:get-steps-info-by-id test-step-id)
   (rmt:send-receive 'get-steps-info-by-id #f (list test-step-id)))