@@ -91,12 +91,12 @@
 									  (string-intersperse res " "))))))
 						    (hash-table-set! res curr-section-name 
 								     (config:assoc-safe-add alist
 											    key 
 											    (if (eq? allow-system 'return-procs)
-												val
-												(val))))
+												val-proc
+												(val-proc))))
 						    (loop (read-line inp) curr-section-name #f #f))
 						  (loop (read-line inp) curr-section-name #f #f)))
 	       (key-val-pr ( x key val      ) (let* ((alist   (hash-table-ref/default res curr-section-name '()))
 						     (envar   (and environ-patt (string-match (regexp environ-patt) curr-section-name)))
 						     (realval (if envar