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

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -4259,46 +4259,49 @@
 
 ;;======================================================================
 ;; cached writes stuff
 ;;======================================================================
 
-(define (dbfile:add-cached-write dbstruct proc run-id params)
+(define (db:add-cached-write dbstruct proc run-id params)
+  (debug:print 0 *default-log-port* "Adding cached write for run-id "run-id" params " params)
   (mutex-lock! *cached-writes-mutex*)
   (let* ((hkey                (cons dbstruct run-id))
 	 (cached-writes-queue (hash-table-ref/default *cached-writes-queues* hkey '())))
     (hash-table-set! *cached-writes-queues* hkey (cons (list proc params) cached-writes-queue)))
   (if (not *cached-writes-flag*)
       (begin
 	(set! *cached-writes-flag* #t)
 	(thread-start! (make-thread
 			(lambda ()
+			  (debug:print 0 *default-log-port* "process cached writes thread started.")
 			  (thread-sleep! 1)
-			  (dbfile:process-cached-writes-queue))))))
+			  (db:process-cached-writes-queue))))))
   (mutex-unlock! *cached-writes-mutex*))
 
 (define (db:process-cached-writes-queue)
   (mutex-lock! *cached-writes-mutex*)
   (hash-table-for-each
    *cached-writes-queues*
    (lambda (hkey writes-list)
      (let* ((dbstruct (car hkey))
 	    (run-id   (cdr hkey)))
+       (debug:print 0 *default-log-port* "Processing "(length writes-list)" cached writes for run "run-id)
        (db:with-db
 	dbstruct
 	run-id
 	#t 
-	(lambda (db)
+	(lambda (dbdat db)
 	  (sqlite3:with-transaction
 	   db
 	   (lambda ()
 	     (for-each
 	      (lambda (queued-write)
 		(match queued-write
-		       ((proc params)(apply proc params))
+		       ((proc params)(apply proc dbstruct params))
 		       (else (assert #f "BAD queued-write"))))
 	      writes-list))))))))
-  (set! *cached-writes* #f)
+  (set! *cached-writes-flag* #f)
   (mutex-unlock! *cached-writes-mutex*))
 
 ;; (db:extract-ods-file db "outputfile.ods" '(("sysname" "%")("fsname" "%")("datapath" "%")) "%")
 
 ;;======================================================================