@@ -75,10 +75,15 @@
   (state #f)
   (status #f)
   (count  0)) 
 
 
+(define (db:with-db dbstruct run-id r/w proc . params)
+  (case (rmt:transport-mode)
+    ((http)(dbfile:with-db dbstruct run-id r/w proc params))
+    ((tcp) (dbmod:with-db dbstruct run-id r/w proc params))))
+
 ;;======================================================================
 ;; hash of hashs
 ;;======================================================================
 
 
@@ -126,15 +131,10 @@
   (let* ((tmpdir (common:get-db-tmp-area)))
     (if (not *dbstruct-dbs*)
 	(dbfile:setup do-sync *toppath* tmpdir)
 	*dbstruct-dbs*)))
 
-(define (db:with-db dbstruct run-id r/w proc . params)
-  (case (rmt:transport-mode)
-    ((http)(dbfile:with-db dbstruct run-id r/w proc params))
-    ((tcp) (dbmod:with-db dbstruct run-id r/w proc params))))
-
 ;; moved from dbfile
 ;;
 ;; ADD run-id SUPPORT
 ;;
 (define (db:create-all-triggers dbstruct)
@@ -2031,19 +2031,20 @@
     (debug:print-info 4 *default-log-port* "runs:get-runs-by-patt qry=" qry-str " " runnamepatt)
     ;(print "runs:get-runs-by-patt qry=" qry-str " " runnamepatt)
 
     (vector header 
             (reverse
-             (db:with-db dbstruct #f #f ;; reads db, does not write to it.
-                         (lambda (dbdat db)
-                           (sqlite3:fold-row
-                            (lambda (res . r)
-                              (cons (list->vector r) res))
-                            '()
-                            db
-                            qry-str
-                            runnamepatt)))))))
+             (db:with-db
+	      dbstruct #f #f ;; reads db, does not write to it.
+              (lambda (dbdat db)
+                (sqlite3:fold-row
+                 (lambda (res . r)
+                   (cons (list->vector r) res))
+                 '()
+                 db
+                 qry-str
+                 runnamepatt)))))))
 
 ;; use (get-value-by-header (db:get-header runinfo)(db:get-rows runinfo))
 ;; NOTE: Does NOT return a list of rows (or one row) for the first slot of the vector
 ;;       this is inconsistent with get-runs but it makes some sense.
 ;;