@@ -212,21 +212,22 @@
 							    (if (or (not sections) 
 								    (member section-name sections))
 								section-name "") ;; stick everything into ""
 							    #f #f))
 	       (configf:key-sys-pr ( x key cmd      ) (if allow-system
-							  (let ((alist (hash-table-ref/default res curr-section-name '()))
+							  (let ((alist    (hash-table-ref/default res curr-section-name '()))
 								(val-proc (lambda ()
 									    (let* ((cmdres  (cmd-run->list cmd))
 										   (status  (cadr cmdres))
 										   (res     (car  cmdres)))
 									      (debug:print-info 4 "" inl "\n => " (string-intersperse res "\n"))
 									      (if (not (eq? status 0))
 										  (begin
 										    (debug:print 0 "ERROR: problem with " inl ", return code " status
 												 " output: " cmdres)
-										    (exit 1)))
+										    ;; (exit 1)
+										    ))
 									      (if (null? res)
 										  ""
 										  (string-intersperse res " "))))))
 							    (hash-table-set! res curr-section-name 
 									     (config:assoc-safe-add alist