@@ -1688,15 +1688,15 @@
 (define (bb-check-path #!key (msg "check-path: "))
   (let ((path (or (get-environment-variable "PATH") "none")))
     (debug:print-info 0 *default-log-port* (conc msg" : $PATH="path))
     (if (string-match "^.*/isoenv-core/.*" path)
         (debug:print-error 0 *default-log-port* (conc msg" : !!ISOENV PRESENT!!")) ;; remove for prod
-        (debug:print-info 1 *default-log-port* (conc msg" : **no isoenv present**")))))
+        (debug:print-info 0 *default-log-port* (conc msg" : **no isoenv present**")))))
 
 	      
 (define (save-environment-as-files fname #!key (ignorevars (list "USER" "HOME" "DISPLAY" "LS_COLORS" "XKEYSYMDB" "EDITOR" "MAKEFLAGS" "MAKEF" "MAKEOVERRIDES")))
-  ;;(bb-check-path msg: "save-environment-as-files entry")
+  (bb-check-path msg: "save-environment-as-files entry")
   (let ((envvars (get-environment-variables))
         (whitesp (regexp "[^a-zA-Z0-9_\\-:,.\\/%$]"))
 	(mungeval (lambda (val)
 		    (cond
 		     ((eq? val #t) "") ;; convert #t to empty string