Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -183,11 +183,14 @@
 	  (if (null? server-logs)
 	      '()
 	      (let loop ((hed  (car server-logs))
 			 (tal  (cdr server-logs))
 			 (res '()))
-		(let* ((mod-time  (file-modification-time hed))
+		(let* ((mod-time  (handle-exceptions
+                                   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)
 				  	  (< down-time day-seconds))
 				     (server:logf-get-start-info hed)
 				     '())) ;; don't waste time processing server files not touched in the past day if there are more than ten servers to look at