@@ -1,9 +1,17 @@
 ;;======================================================================
 ;; read a config file, loading only the section pertinent
 ;; to this run field1val/field2val/field3val ...
 ;;======================================================================
+
+(use format)
+
+(declare (unit runconfig))
+(declare (uses common))
+
+(include "common_records.scm")
+
 (define (setup-env-defaults db fname run-id . already-seen)
   (let* ((keys    (get-keys db))
 	 (keyvals (get-key-vals db run-id))
 	 (thekey  (string-intersperse (map (lambda (x)(if x x "-na-")) keyvals) "/"))
 	 (confdat (read-config fname #f #f))