@@ -419,18 +419,18 @@
 				   (- wait-delay adj))
 			       0)))
 	  (if (> new-wait 0)
 	      (begin
 		(if (common:low-noise-print 10 "delay wait message")
-		    (debug:print-info 0 *default-log-port* "Server loaded, DelayWait: "new-wait))
+		    (debug:print-info 0 *default-log-port* "Server on host " host " loaded, DelayWait: "new-wait))
 		(tt:backoff-wait-delay-set! bkoff new-wait)
 		(tt:backoff-last-adj-t-set! bkoff (current-seconds))
 		(thread-sleep! new-wait))
 	      (hash-table-delete! *tt:backoff-smoothing* host-port))))))
 
 (define (tt:send-receive-direct host port dat #!key (ping-mode #f)(tries-remaining 25))
-  (assert (number? port) "FATAL: tt:send-receive-direct called with port not a number "port)
+  (assert (number? port) "FATAL: tt:send-receive-direct called with  a port that is not a number "port)
   (tt:backoff-decr-and-wait host port)
   (let* ((retry          (lambda ()
 			   (tt:send-receive-direct host port dat tries-remaining: (- tries-remaining 1))))
 	 (full-err-print (lambda (exn msg)
 			   (if (condition? exn)