@@ -202,11 +202,11 @@
 			      (string->number (caddr dat))
                               (cadr (cddr dat))))))
                 (begin 
                    (if dbprep-found
                       (begin
-                         (debug:print-info 0 *default-log-port* "Server is in dbprep at " (common:human-time))
+                         (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)))
                    )
 		    (list #f #f #f #f)))))))))
@@ -229,17 +229,18 @@
 		   (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 that do not contain "exiting". Ignore logs for servers that have exited.
-	(let* ((server-logs-cmd  (conc "grep -iL exiting " areapath "/logs/server-*-*.log"))
-               (server-logs   (string-split (string-chomp (call-with-input-pipe server-logs-cmd read-all))))
+        ;; Get the list of server logs. First remove logs for servers that have exited.
+	(let* (
+               ;; (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)))
 	  (if (or (null? server-logs) (= num-serv-logs 0))
               (let ()
-                 (debug:print 1  *default-log-port* "There are no servers running at " (common:human-time))
+                 (debug:print 2  *default-log-port* "There are no servers running at " (common:human-time))
 	         '()
               )
 	      (let loop ((hed  (string-chomp (car server-logs)))
 			 (tal  (cdr server-logs))
 			 (res '()))
@@ -460,11 +461,11 @@
 	 (servers       (server:get-best (server:get-list areapath))))
     (if (or (and servers
 		 (null? servers))
 	    (not servers)
 	    (and (list? servers)
-		 (< (length servers) (random ns)))) ;; somewhere between 0 and numservers
+		 (< (length servers) (+ 1 (random ns))))) ;; somewhere between 1 and numservers
         #f
         (let loop ((hed (car servers))
                    (tal (cdr servers)))
           (let ((res (server:check-server hed)))
             (if res