@@ -121,11 +121,11 @@
 	     (directory? path)
 	     (file-read-access? path))
 	(let* ((dbpath    (conc path "/" *exe-name* ".db"))
 	       (writeable (file-write-access? dbpath))
 	       (dbexists  (file-exists? dbpath)))
-	  (handle-exceptions
+	  (common:debug-handle-exceptions #t
 	   exn
 	   (begin
 	     (debug:print 2 *default-log-port* "ERROR: problem accessing db " dbpath
 			  ((condition-property-accessor 'exn 'message) exn))
 	     (exit 1))
@@ -485,11 +485,11 @@
     ;;   <packages-metadir>/<package-type>.config file using
     ;;   <upstream-file> as an input
     (if (file-exists? upstream-file)
 	(if (or (not (file-exists? package-config)) ;; if not created call the updater, otherwise call only if upstream newer
 		(> (file-modification-time upstream-file)(file-modification-time package-config)))
-	    (handle-exceptions
+	    (common:debug-handle-exceptions #t
 	     exn
 	     (debug:print-error 0 *default-log-port* "failed to run script " conversion-script " with params " upstream-file " " package-config)
 	     (let ((pid (process-run conversion-script (list upstream-file package-config))))
 	       (process-wait pid)))
 	    (debug:print 0 *default-log-port* "Skipping update of " package-config " from " upstream-file))