@@ -8,10 +8,15 @@
 (declare (unit runconfig))
 (declare (uses common))
 
 (include "common_records.scm")
 
+(define (runconfig:read fname target environ-patt)
+  (let ((ht (make-hash-table)))
+    (hash-table-set! ht target '())
+    (read-config fname ht #t environ-patt: environ-patt sections: (if target (list "default" target) #f))))
+
 ;; NB// to process a runconfig ensure to use environ-patt with target!
 ;;
 (define (setup-env-defaults fname run-id already-seen keyvals #!key (environ-patt #f)(change-env #t))
   (let* ((keys    (map car keyvals))
 	 (thekey  (if keyvals 
@@ -21,11 +26,11 @@
 			  (begin
 			    (debug:print-error 0 *default-log-port* "setup-env-defaults called with no run-id or -target or -reqtarg")
 			    "nothing matches this I hope"))))
 	 ;; 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)))
+	 (confdat   (runconfig:read fname thekey environ-patt))
 	 (whatfound (make-hash-table))
 	 (finaldat  (make-hash-table))
 	 (sections (list "default" thekey)))
     (if (not *target*)(set! *target* thekey)) ;; may save a db access or two but repeats db:get-target code
     (debug:print 4 *default-log-port* "Using key=\"" thekey "\"")