@@ -17,20 +17,20 @@
 	 (thekey  (if keyvals 
 		      (string-intersperse (map (lambda (x)(if x x "-na-")) (map cadr keyvals)) "/")
 		      (or (common:args-get-target)
 			  (get-environment-variable "MT_TARGET")
 			  (begin
-			    (debug:print 0 "ERROR: setup-env-defaults called with no run-id or -target or -reqtarg")
+			    (debug:print 0 #f "ERROR: 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)))
 	 (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 "Using key=\"" thekey "\"")
+    (debug:print 4 #f "Using key=\"" thekey "\"")
 
     (if change-env
 	(for-each ;; NB// This can be simplified with new content of keyvals having all that is needed.
 	 (lambda (keyval)
 	   (safe-setenv (car keyval)(cadr keyval)))
@@ -51,15 +51,15 @@
 		(hash-table-set! finaldat envvar val)))
 	      (map car section-dat)))))
      sections)
     (if already-seen
 	(begin
-	  (debug:print 2 "Key settings found in runconfig.config:")
+	  (debug:print 2 #f "Key settings found in runconfig.config:")
 	  (for-each (lambda (fullkey)
-		      (debug:print 2 (format #f "~20a ~a\n" fullkey (hash-table-ref/default whatfound fullkey 0))))
+		      (debug:print 2 #f (format #f "~20a ~a\n" fullkey (hash-table-ref/default whatfound fullkey 0))))
 		    sections)
-	  (debug:print 2 "---")
+	  (debug:print 2 #f "---")
 	  (set! *already-seen-runconfig-info* #t)))
     ;; finaldat ;; was returning this "finaldat" which would be good but conflicts with other uses
     confdat
     ))
 
@@ -74,7 +74,7 @@
 	(setup-env-defaults runconfigf run-id #t keyvals
 			    environ-patt: (conc "(default"
 						(if targ
 						    (conc "|" targ ")")
 						    ")")))
-	(debug:print 0 "WARNING: You do not have a run config file: " runconfigf))))
+	(debug:print 0 #f "WARNING: You do not have a run config file: " runconfigf))))