@@ -928,10 +928,11 @@
 	       (get-environment-variable "MT_RUN_AREA_HOME")
 	       (common:file-exists? mtcachef)
 	       (common:file-exists? rccachef))
           ;;(BB> "launch:setup-body -- cond branch 1 - use-cache")
           (set! *configdat*    (configf:read-alist mtcachef))
+	  (set! *db-keys*      (common:get-fields *configdat*))
           ;;(BB> "launch:setup-body -- 1 set! *configdat*="*configdat*)
 	  (set! *runconfigdat* (configf:read-alist rccachef))
 	  (set! *configinfo*   (list *configdat*  (get-environment-variable "MT_RUN_AREA_HOME")))
 	  (set! *configstatus* 'fulldata)
 	  (set! *toppath*      (get-environment-variable "MT_RUN_AREA_HOME"))
@@ -964,10 +965,11 @@
 		  (set! *configdat*  (car first-pass))
                   ;;(BB> "launch:setup-body -- 2 set! *configdat*="*configdat*)
 		  (set! *configinfo* first-pass)
 		  (set! *toppath*    (or toppath (cadr first-pass))) ;; use the gathered data unless already have it
 		  (set! toppath      *toppath*)
+		  (set! *db-keys*    (common:get-fields *configdat*))
 		  (if (not *toppath*)
 		      (begin
 			(debug:print-error 0 *default-log-port* "you are not in a megatest area!")
 			(exit 1)))
 		  (setenv "MT_RUN_AREA_HOME" *toppath*)
@@ -1027,10 +1029,11 @@
 		(let* ((toppath  (or (get-environment-variable "MT_RUN_AREA_HOME")(cadr cfgdat)))
 		       (rdat     (read-config (conc toppath  ;; convert this to use runconfig:read!
 						    "/runconfigs.config") *runconfigdat* #t sections: sections)))
 		  (set! *configinfo*   cfgdat)
 		  (set! *configdat*    (car cfgdat))
+		  (set! *db-keys*    (common:get-fields *configdat*))
 		  (set! *runconfigdat* rdat)
 		  (set! *toppath*      toppath)
 		  (set! *configstatus* 'partial))
 		(begin
 		  (debug:print-error 0 *default-log-port* "No " mtconfig " file found. Giving up.")