@@ -219,13 +219,13 @@ (define (rmt:open-qry-close-locally cmd run-id params #!key (remretries 5)) (let* ((qry-is-write (not (member cmd api:read-only-queries))) (db-file-path (db:dbfile-path)) ;; 0)) (dbstruct-local (if *dbstruct-db* *dbstruct-db* - (let* ((db (db:setup))) ;; make-dbr:dbstruct path: dbdir local: #t))) - (set! *dbstruct-db* db) - db))) + (let* ((dbstruct (db:setup))) ;; make-dbr:dbstruct path: dbdir local: #t))) + (set! *dbstruct-db* dbstruct) + dbstruct))) (read-only (not (file-write-access? db-file-path))) (start (current-milliseconds)) (resdat (if (not (and read-only qry-is-write)) (api:execute-requests dbstruct-local (vector (symbol->string cmd) params)) (vector #t '())))