@@ -183,11 +183,11 @@
 	  (if (null? server-logs)
 	      '()
 	      (let loop ((hed  (car server-logs))
 			 (tal  (cdr server-logs))
 			 (res '()))
-		(let* ((mod-time  (handle-exceptions
+		(let* ((mod-time  (common:debug-handle-exceptions #t
                                    exn
                                    0
                                    (file-modification-time hed))) ;; default to *very* old so log gets ignored if deleted
 		       (down-time (- (current-seconds) mod-time))
 		       (serv-dat  (if (or (< num-serv-logs 10)
@@ -287,11 +287,11 @@
 (define server:try-running server:run) ;; there is no more per-run servers ;; REMOVE ME. BUG.
 
 (define (server:dotserver-age-seconds areapath)
   (let ((server-file (conc areapath "/.server")))
     (begin
-      (handle-exceptions
+      (common:debug-handle-exceptions #t
        exn
        #f
        (- (current-seconds)
           (file-modification-time server-file))))))