@@ -85,16 +85,20 @@
 				   (conc "(lambda (ht)(config-lookup ht \"" sect "\" \"" var "\"))")))
 				((runconfigs-get) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 				((rget)           (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 				(else "(lambda (ht)(print \"ERROR\") \"ERROR\")"))))
 		;; (print "fullcmd=" fullcmd)
-		(if (or allow-system
-			(not (member cmdtype '("system" "shell"))))
-		    (with-input-from-string fullcmd
-		      (lambda ()
-			(set! result ((eval (read)) ht))))
-		    (set! result (conc "#{(" cmdtype ") "  cmd "}")))		(loop (conc prestr result poststr)))
+		(handle-exceptions
+		 exn
+		 (debug:print 0 "ERROR: failed to process config input \"" l "\"")
+		 (if (or allow-system
+			 (not (member cmdtype '("system" "shell"))))
+		     (with-input-from-string fullcmd
+		       (lambda ()
+			 (set! result ((eval (read)) ht))))
+		     (set! result (conc "#{(" cmdtype ") "  cmd "}"))))
+		(loop (conc prestr result poststr)))
 	      res))
 	res)))
 
 ;; Run a shell command and return the output as a string
 (define (shell cmd)