@@ -11,12 +11,12 @@
 (include "common_records.scm")
 
 
 
 (define (setup-env-defaults db fname run-id already-seen #!key (environ-patt #f))
-  (let* ((keys    (rdb:get-keys db))
-	 (keyvals (rdb:get-key-vals db run-id))
+  (let* ((keys    (db:get-keys db))
+	 (keyvals (db:get-key-vals db run-id))
 	 (thekey  (string-intersperse (map (lambda (x)(if x x "-na-")) keyvals) "/"))
 	 ;; Why was system disallowed in the reading of the runconfigs file?
 	 ;; NOTE: Should be setting env vars based on (target|default)
 	 (confdat (read-config fname #f #t environ-patt: environ-patt sections: (list "default" thekey)))
 	 (whatfound (make-hash-table))