@@ -371,11 +371,13 @@
     ((add-var)                      (apply db:add-var dbstruct params))
 
     ((insert-run)                   (apply db:insert-run dbstruct params))
 
     ;; STEPS
-    ((teststep-set-status!)         (apply db:teststep-set-status! dbstruct params))
+    ((teststep-set-status!)
+     ;; (apply db:teststep-set-status! dbstruct params))
+     (db:add-cached-write dbstruct db:teststep-set-status! run-id 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))