@@ -28,10 +28,11 @@
 (declare (uses commonmod))
 (declare (uses configf))
 (declare (uses db))
 (declare (uses rmtmod))
 (declare (uses ezsteps))
+;; (declare (uses dbmod))
 (declare (uses dbfile))
 (declare (uses mtargs))
 
 (use regex regex-case base64 sqlite3 srfi-18 directory-utils posix-extras z3
      call-with-environment-variables csv)
@@ -38,19 +39,21 @@
 (use typed-records pathname-expand matchable)
 
 (import (prefix base64 base64:)
 	(prefix sqlite3 sqlite3:)
 	(prefix mtargs args:)
-	rmtmod
-	debugprint)
+)
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
 (include "megatest-fossil-hash.scm")
 
 (import commonmod
+	rmtmod
+	debugprint
+	;; dbmod
 	dbfile)
 
 ;;======================================================================
 ;; ezsteps
 ;;======================================================================
@@ -1183,10 +1186,17 @@
 	;; if have -append-config then read and append here
 	(let ((cfname (args:get-arg "-append-config")))
 	  (if (and cfname
 		   (file-read-access? cfname))
 	      (read-config cfname *configdat* #t))) ;; values are added to the hash, no need to do anything special.
+	;; have config at this time, this is a good place to set params based on config file settings
+	(let*  ((dbmode (configf:lookup *configdat* "setup" "dbcache-mode")))
+	  (if dbmode
+	      (begin
+		(debug:print-info 0 *default-log-port* "Overriding dbmode to "dbmode)
+		(dbcache-mode (string->symbol dbmode)))))
+	
 	*toppath*)))
 
 
 (define (get-best-disk confdat testconfig)
   (let* ((disks   (or (and testconfig (hash-table-ref/default testconfig "disks" #f))