Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -171,11 +171,11 @@
 (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 server id
     (handle-exceptions
 	exn
       (begin
-	(debug:print-info 0 *default-log-port* "failed to get server info from " logf ", exn=" exn)
+	(debug:print-info 0 *default-log-port* "Unable to get server info from " logf ", exn=" exn)
 	(list #f #f #f #f)) ;; no idea what went wrong, call it a bad server
       (with-input-from-file
 	  logf
 	(lambda ()
 	  (let loop ((inl  (read-line))
@@ -184,19 +184,19 @@
 		(let ((mlst (string-match rx inl)))
 		  (if (not mlst)
 		      (if (< lnum 500) ;; give up if more than 500 lines of server log read
 			  (loop (read-line)(+ lnum 1))
 			  (begin 
-                           (debug:print-info 0 *default-log-port* "failed to get server info from first 500 lines of " logf )
+                           (debug:print-info 0 *default-log-port* "Unable to get server info from first 500 lines of " logf )
                            (list #f #f #f #f)))
 		      (let ((dat  (cdr mlst)))
 			(list (car dat) ;; host
 			      (string->number (cadr dat)) ;; port
 			      (string->number (caddr dat))
                               (cadr (cddr dat))))))
                 (begin 
-                   (debug:print-info 0 *default-log-port* "failed to get server info from " logf " at " (current-seconds))
+                   (debug:print-info 0 *default-log-port* "Unable to get server info from " logf " at " (current-seconds))
 		    (list #f #f #f #f)))))))))
 
 ;; get a list of servers with all relevant data
 ;; ( mod-time host port start-time pid )
 ;;
@@ -252,11 +252,11 @@
     (for-each
      (lambda (server)
         (handle-exceptions
           exn
          (begin 
-          (debug:print-info 0 *default-log-port*  "failed to get server start-time and/or mod-time from " server ", exn=" exn))
+          (debug:print-info 0 *default-log-port*  "Unable to get server start-time and/or mod-time from " server ", exn=" exn))
        (match-let (((mod-time host port start-time server-id pid)
 		    server))
 	 (let* ((uptime  (- (current-seconds) mod-time))
 		(runtime (if start-time
 			     (- mod-time start-time)
@@ -320,11 +320,11 @@
 
 (define (server:record->id servr)
   (handle-exceptions
    exn
    (begin 
-     (debug:print-info 0 *default-log-port*  "failed to get server id from " servr ", exn=" exn)     
+     (debug:print-info 0 *default-log-port*  "Unable to get server id from " servr ", exn=" exn)     
    #f)
   (match-let (((mod-time host port start-time server-id pid)
 	       servr))
     (if server-id
 	server-id
@@ -332,11 +332,11 @@
 
 (define (server:record->url servr)
   (handle-exceptions
    exn
    (begin 
-     (debug:print-info 0 *default-log-port*  "failed to get server url from " servr ", exn=" exn)     
+     (debug:print-info 0 *default-log-port*  "Unable to get server url from " servr ", exn=" exn)     
    #f)
   (match-let (((mod-time host port start-time server-id pid)
 	       servr))
     (if (and host port)
 	(conc host ":" port)
@@ -462,11 +462,11 @@
 
 (define (server:kill servr)
   (handle-exceptions
     exn
     (begin 
-      (debug:print-info 0 *default-log-port*  "failed to get host and/or port from " servr ", exn=" exn)     
+      (debug:print-info 0 *default-log-port*  "Unable to get host and/or port from " servr ", exn=" exn)     
     #f)
   (match-let (((mod-time hostname port start-time pid)
 	       servr))
     (tasks:kill-server hostname pid))))