@@ -54,10 +54,11 @@
 (define configf:include-rx (regexp "^\\[include\\s+(.*)\\]\\s*$"))
 (define configf:section-rx (regexp "^\\[(.*)\\]\\s*$"))
 (define configf:blank-l-rx (regexp "^\\s*$"))
 (define configf:key-sys-pr (regexp "^(\\S+)\\s+\\[system\\s+(\\S+.*)\\]\\s*$"))
 (define configf:key-val-pr (regexp "^(\\S+)(\\s+(.*)|())$"))
+(define configf:key-no-val (regexp "^(\\S+)(\\s*)$"))
 (define configf:comment-rx (regexp "^\\s*#.*"))
 (define configf:cont-ln-rx (regexp "^(\\s+)(\\S+.*)$"))
 
 ;; read a line and process any #{ ... } constructs
 
@@ -206,22 +207,26 @@
 												      ((return-string) cmd)
 												      (else (val-proc)))))
 							    (loop (configf:read-line inp res allow-system) curr-section-name #f #f))
 							  (loop (configf:read-line inp res allow-system) curr-section-name #f #f)))
 	       (configf:key-val-pr ( x key unk1 val unk2 ) (let* ((alist   (hash-table-ref/default res curr-section-name '()))
-							     (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
-							      ;; (debug:print-info 4 "read-config key=" key ", val=" val ", realval=" realval)
-							      (setenv key 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)))
+								  (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
+								   ;; (debug:print-info 4 "read-config key=" key ", val=" val ", realval=" realval)
+								   (setenv key 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 
+									       (config:assoc-safe-add alist key #t))
+							      (loop (configf:read-line inp res allow-system) curr-section-name key #f)))
 	       ;; if a continued line
 	       (configf:cont-ln-rx ( x whsp val     ) (let ((alist (hash-table-ref/default res curr-section-name '())))
 						(if var-flag             ;; if set to a string then we have a continued var
 						    (let ((newval (conc 
 								   (config-lookup res curr-section-name var-flag) "\n"