@@ -201,15 +201,15 @@
 				  (or (configf:lookup torun contour runkey)
 				      '()))))
 
 (define (fossil:clone-or-sync url name dest-dir)
   (let ((targ-file (conc dest-dir "/" name))) ;; do not force usage of .fossil extension
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
 	exn
 	(print "ERROR: failed to create directory " dest-dir " message: " ((condition-property-accessor 'exn 'message) exn))
       (create-directory dest-dir #t))
-    (common:debug-handle-exceptions #t
+    (handle-exceptions
 	exn
 	(print "ERROR: failed to clone or sync 1ossil " url " message: " ((condition-property-accessor 'exn 'message) exn))
       (if (file-exists? targ-file)
 	  (system (conc "fossil pull --once " url " -R " targ-file))
 	  (system (conc "fossil clone " url " " targ-file))
@@ -216,19 +216,19 @@
 	  ))))
 
 (define (fossil:last-change-node-and-time fossils-dir fossil-name branch)
   (let* ((fossil-file   (conc fossils-dir "/" fossil-name))
 	 (timeline-port (if (file-read-access? fossil-file)
-			    (common:debug-handle-exceptions #t
+			    (handle-exceptions
 				exn
 				(begin
 				  (print "ERROR: failed to get timeline from " fossil-file " message: " ((condition-property-accessor 'exn 'message) exn))
 				  #f)
 			      (open-input-pipe (conc "fossil timeline -t ci -W 0 -n 0 -R " fossil-file)))
 			    #f))
 	 (get-line      (lambda ()
-			  (common:debug-handle-exceptions #t
+			  (handle-exceptions
 			      exn
 			      (begin
 				(print "ERROR: failed to read from file " fossil-file " message: "  ((condition-property-accessor 'exn 'message) exn))
 				#f)
 			    (read-line timeline-port))))
@@ -450,11 +450,11 @@
 	 (new-target (if area-xlatr
 			 (let ((xlatr-key (string->symbol area-xlatr)))
 			   (if (alist-ref xlatr-key *target-mappers*)
 			       (begin
 				 (print "Using target mapper: " area-xlatr)
-				 (common:debug-handle-exceptions #t
+				 (handle-exceptions
 				     exn
 				     (begin
 				       (print "FAILED TO RUN TARGET MAPPER FOR " area ", called " area-xlatr)
 				       (print "   function is: " (alist-ref xlatr-key *target-mappers*))
 				       (print " message: " ((condition-property-accessor 'exn 'message) exn))
@@ -595,11 +595,11 @@
 		       (lambda (cmd)
 			 (print "cmd: " cmd)
 			 (let* ((script (car cmd))
 				(params (cdr cmd))
 				(cmd    (conc script " " contour " " runkey " " std-runname " " action " " params))
-				(res    (common:debug-handle-exceptions #t
+				(res    (handle-exceptions
 					    exn
 					    #f
 					  (print "Running " cmd)
 					  (with-input-from-pipe cmd read-lines))))
 			   (if (and res (not (null? res)))
@@ -788,11 +788,11 @@
 ;;
 (define (dispatch-commands mtconf toppath)
   ;; we are expecting a directory "logs", check and create it, create the log in /tmp if not able to create logs dir
   (let ((logdir
 	 (if (if (not (directory? "logs"))
-		 (common:debug-handle-exceptions #t
+		 (handle-exceptions
 		     exn
 		     #f
 		   (create-directory "logs")
 		   #t)
 		 #t)