Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -189,15 +189,15 @@
 (define (server:logf-get-start-info logf)
   (let ((server-rx    (regexp "^SERVER STARTED: (\\S+):(\\d+) AT ([\\d\\.]+) server-id: (\\S+) pid: (\\d+)")) ;; SERVER STARTED: host:port AT timesecs server id
         (dbprep-rx    (regexp "^SERVER: dbprep"))
         (dbprep-found 0)
 	(bad-dat      (list #f #f #f #f #f)))
-;; (handle-exceptions
-;; 	exn
-;;   (begin
-;; 	(debug:print-info 0 *default-log-port* "Unable to get server info from " logf ", exn=" exn)
-;; 	bad-dat) ;; no idea what went wrong, call it a bad server
+    (handle-exceptions
+	exn
+      (begin
+	(debug:print-info 0 *default-log-port* "Unable to get server info from " logf ", exn=" exn)
+	bad-dat) ;; no idea what went wrong, call it a bad server
       (with-input-from-file
 	  logf
 	(lambda ()
 	  (let loop ((inl  (read-line))
 		     (lnum 0))
@@ -225,11 +225,11 @@
                   (if dbprep-found
                       (begin
                          (debug:print-info 2 *default-log-port* "Server is in dbprep at " (common:human-time))
                          (thread-sleep! 0.5)) ;; was 25 sec but that blocked things from starting?
                       (debug:print-info 0 *default-log-port* "Unable to get server info from " logf " at " (seconds->time-string (current-seconds))))
-		  bad-dat)))))));; )
+		  bad-dat))))))))
 
 ;; ;; get a list of servers from the log files, with all relevant data
 ;; ;; ( mod-time host port start-time pid )
 ;; ;;
 ;; (define (server:get-list areapath #!key (limit #f))