Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -4296,11 +4296,12 @@
 	     (for-each
 	      (lambda (queued-write)
 		(match queued-write
 		       ((proc params)(apply proc dbstruct params))
 		       (else (assert #f "BAD queued-write"))))
-	      writes-list))))))))
+	      writes-list)))
+	  (hash-table-delete! *cached-writes-queues* hkey))))))
   (set! *cached-writes-flag* #f)
   (mutex-unlock! *cached-writes-mutex*))
 
 ;; (db:extract-ods-file db "outputfile.ods" '(("sysname" "%")("fsname" "%")("datapath" "%")) "%")