@@ -217,16 +217,17 @@
 								  (envar   (and environ-patt (string-search (regexp environ-patt) curr-section-name)))
 								  (realval (if envar
 									       (config:eval-string-in-environment val)
 									       val)))
 							     (debug:print-info 6 "read-config env setting, envar: " envar " realval: " realval " val: " val " key: " key " curr-section-name: " curr-section-name)
-							     (if (and envar
+							     (if envar
+								(if (and envar
 								      (string? realval)
 								      (not (string-search (integer->char 0) realval)))
 								   ;; (debug:print-info 4 "read-config key=" key ", val=" val ", realval=" realval)
 								   (setenv key realval)
-								   (debug:print 0 "ERROR: bad value for setenv, key=" key ", value=" realval))							     
+								   (debug:print 0 "ERROR: bad value for setenv, key=" key ", value=" realval)))							     
 							     (hash-table-set! res curr-section-name 
 									      (config:assoc-safe-add alist key realval))
 							     (loop (configf:read-line inp res allow-system) curr-section-name key #f)))
 	       (configf:key-no-val ( x key val)             (let* ((alist   (hash-table-ref/default res curr-section-name '())))
 							      (hash-table-set! res curr-section-name