@@ -233,11 +233,11 @@
 		   (exn (i/o file)(debug:print 0 *default-log-port* "ERROR: Cannot create directory at " (conc areapath "/logs")))
 		   (exn ()(debug:print 0 *default-log-port* "ERROR: Unknown error attemtping to get server list. exn=" exn)))
 		  (directory-exists? (conc areapath "/logs")))
 		'()))
 
-        ;; Get the list of server logs. First remove logs for servers that have exited.
+        ;; Get the list of server logs.
 	(let* (
                ;; For some reason, when I uncomment the below line, ext-tests sometimes starts 1000's of servers.
                ;; (exiting-servers (system (conc "bash -c 'rm -f `grep -il exiting " areapath "/logs/server-*-*.log 2> /dev/null`'")))
                (server-logs   (glob (conc areapath "/logs/server-*-*.log")))
 	       (num-serv-logs (length server-logs)))
@@ -250,11 +250,11 @@
 			 (tal  (cdr server-logs))
 			 (res '()))
 		(let* ((mod-time  (handle-exceptions
 				   exn
 				   (begin
-				     (debug:print 0 *default-log-port* "failed to get modification time on " hed ", exn=" exn)
+				     (debug:print 0 *default-log-port* "server:get-list: failed to get modification time on " hed ", exn=" exn)
 				     (current-seconds)) ;; 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 900)) ;; day-seconds))