Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -135,11 +135,13 @@
 (define (db:with-db dbstruct run-id r/w proc . params)
   (let* ((have-struct (dbr:dbstruct? dbstruct))
          (dbdat (if have-struct 
                     (db:get-db dbstruct)
                     #f))
-	 (db    (db:dbdat-get-db dbdat))
+	 (db    (if have-struct
+		    (db:dbdat-get-db dbdat)
+		    dbstruct))
 	 (use-mutex (> *api-process-request-count* 25)))
     (if (and use-mutex
 	     (common:low-noise-print 120 "over-50-parallel-api-requests"))
 	(debug:print-info 0 *default-log-port* *api-process-request-count* " parallel api requests being processed in process " (current-process-id) ", throttling access"))
     (if (common:low-noise-print 120 (conc "parallel-api-requests" *max-api-process-requests*))