@@ -164,13 +164,14 @@
     (if (get-environment-variable "TARGETHOST")(unsetenv "TARGETHOST"))
     (thread-join! log-rotate)
     (pop-directory)))
 
 ;; given a path to a server log return: host port startseconds
-;;
+;; any changes to number of elements returned by this fuction will dirctly affect server:record->url,server:record->id,server:kill,server:get-num-alive which uses match let 
+
 (define (server:logf-get-start-info logf)
-  (let ((rx (regexp "^SERVER STARTED: (\\S+):(\\d+) AT ([\\d\\.]+) server-id: (\\S+)"))) ;; SERVER STARTED: host:port AT timesecs
+  (let ((rx (regexp "^SERVER STARTED: (\\S+):(\\d+) AT ([\\d\\.]+) server-id: (\\S+)"))) ;; SERVER STARTED: host:port AT timesecs server id
     (handle-exceptions
 	exn
       (begin
 	(print "failed to get server info from " logf ", exn=" exn)
 	(list #f #f #f #f)) ;; no idea what went wrong, call it a bad server
@@ -232,11 +233,11 @@
 		       (serv-rec (cons mod-time serv-dat))
 		       (fmatch   (string-match fname-rx hed))
 		       (pid      (if fmatch (string->number (list-ref fmatch 2)) #f))
 		       (new-res  (if (null? serv-dat)
 				     res
-				     (cons (append serv-rec (list pid)) res))))
+				     (cons (append serv-rec (list pid)) res)))) ;; any changes to number of elements in new-res will dirctly affect server:record->url,server:record->id,server:kill,server:get-num-alive which uses match let 
 		  (if (null? tal)
 		      (if (and limit
 			       (> (length new-res) limit))
 			  new-res ;; (take new-res limit)  <= need intelligent sorting before this will work
 			  new-res)
@@ -411,11 +412,10 @@
 ;; no longer care if multiple servers are started by accident. older servers will drop off in time.
 ;;
 (define (server:check-if-running areapath) ;;  #!key (numservers "2"))
   (let* ((ns            (server:get-num-servers))
 	 (servers       (server:get-best (server:get-list areapath))))
-    (print "in server:check-if-running servers: " servers " ns: " ns)
     (if (or (and servers
 		 (null? servers))
 	    (not servers)
 	    (and (list? servers)
 		 (< (length servers) (random ns)))) ;; somewhere between 0 and numservers