Index: configf.scm
==================================================================
--- configf.scm
+++ configf.scm
@@ -204,11 +204,11 @@
 									      (if (null? res)
 										  ""
 										  (string-intersperse res " "))))))
 							    (hash-table-set! res curr-section-name 
 									     (config:assoc-safe-add alist
-												    key 
+									   			    key 
 												    (case allow-system
 												      ((return-procs) val-proc)
 												      ((return-string) cmd)
 												      (else (val-proc)))))
 							    (loop (configf:read-line inp res allow-system) curr-section-name #f #f))
@@ -217,14 +217,16 @@
 								  (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 envar
-								 (begin
+							     (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)))
+								   (setenv key 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