@@ -1572,7 +1572,17 @@
 			    ;; (db:hoh-set! stmt-cache db stmt newstmth)
 			    (hash-table-set! stmt-cache stmt newstmth)
 			    newstmth))))
     (mutex-unlock! *get-cache-stmth-mutex*)
     result))
+
+;;======================================================================
+;; cached writes - run list of procs inside transaction
+;;   NOTE: this only works because we have once database per process
+;;======================================================================
+
+(define *cached-writes-mutex* (make-mutex))
+(define *cached-writes-flag*  #f)
+(define *cached-writes-queues* (make-hash-table)) ;; dbstruct->list of writes
+
 
 )