@@ -49,11 +49,11 @@
 		   (config:assoc-safe-add
 		    (hash-table-ref/default cfgdat section-name '())
 		    var value metadata: metadata)))
 
 (define (config:eval-string-in-environment str)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (begin
      (debug:print-error 0 *default-log-port* "problem evaluating \"" str "\" in the shell environment")
      #f)
    (let ((cmdres (process:cmd-run->list (conc "echo " str))))
@@ -109,11 +109,11 @@
 				   (conc "(lambda (ht)(config-lookup ht \"" sect "\" \"" var "\"))")))
 				((runconfigs-get rget) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 				;; ((rget)           (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
 				(else "(lambda (ht)(print \"ERROR\") \"ERROR\")"))))
 		;; (print "fullcmd=" fullcmd)
-		(common:debug-handle-exceptions #t
+		(handle-exceptions
 		 exn
 		 (begin
 		   (debug:print 0 *default-log-port* "WARNING: failed to process config input \"" l "\"")
 		   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 		   ;; (print "exn=" (condition->list exn))