@@ -1899,11 +1899,11 @@
 	 (viewgen (configf:lookup views-cfgdat view-name "viewgen"))
 	 (updater (configf:lookup views-cfgdat view-name "updater"))
 	 (result-child #f))
     (if (and (file-exists? source)
 	     (file-read-access? source))
-	(common:debug-handle-exceptions #t
+	(handle-exceptions
 	 exn
 	 (begin
 	   (print-call-chain)
 	   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 	   (debug:print 0 *default-log-port* "ERROR: failed to load " source ", try loading in the repl: megatest -repl")
@@ -1911,11 +1911,11 @@
 	 (load source))
 	(begin
 	  (debug:print 0 *default-log-port* "ERROR: cannot find file to load: \"" source "\" for user view " view-name)))
     ;; now run the user supplied definition for the tab view
     (if success
-	(common:debug-handle-exceptions #t
+	(handle-exceptions
 	 exn
 	 (begin
 	   (print-call-chain)
 	   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 	   (debug:print 0 *default-log-port* "ERROR: failed call procedure " viewgen
@@ -1928,11 +1928,11 @@
 	       ((eval (string->symbol viewgen)) commondat tabs tab-num view-name views-cfgdat *configdat*))))
     ;; and finally set the updater
     (if success
 	(dboard:commondat-add-updater commondat
 				      (lambda ()
-					(common:debug-handle-exceptions #t
+					(handle-exceptions
 					 exn
 					 (begin
 					   (print-call-chain)
 					   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 					   (debug:print 0 *default-log-port* "ERROR: failed call procedure \"" updater
@@ -2715,11 +2715,11 @@
 
 ;; Force creation of the db in case it isn't already there.
 ;; (tasks:open-db)
 
 (define (dashboard:get-youngest-run-db-mod-time dbdir)
-  (common:debug-handle-exceptions #t
+  (handle-exceptions
    exn
    (begin
      (debug:print 0 *default-log-port* "WARNING: error in accessing databases in get-youngest-run-db-mod-time: " ((condition-property-accessor 'exn 'message) exn) " db-dir="dbdir)
      (current-seconds)) ;; something went wrong - just print an error and return current-seconds
    (common:max (map (lambda (filen)
@@ -3013,11 +3013,11 @@
 				      (reverse
 				       (sqlite3:fold-row
 					(lambda (res t var val)
 					  (cons (vector t var val) res))
 					'() db all-dat-qrystr)))
-		     (let ((zeropt (common:debug-handle-exceptions #t
+		     (let ((zeropt (handle-exceptions
 				    exn
 				    #f
 				    (sqlite3:first-row db all-dat-qrystr))))
 		       (if zeropt ;; NOTE: Add zeropt to the beginning of the list as the list was reversed above.
 			   (hash-table-set! res-ht