Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1661,18 +1661,18 @@
 ;; 			    (set! cpu-load newval))))))
 ;; 	      (car load-res))
 ;;     cpu-load))
 
 ;;======================================================================
-;; get values from cached info from dropping file in logs dir
+;; get values from cached info from dropping file in .sysdata dir
 ;;  e.g. key is host and dtype is normalized-load
 ;;
 (define (common:get-cached-info key dtype #!key (age 10))
   (if *toppath*
       (let* ((fullpath (conc *toppath* "/.sysdata/" key "-" dtype ".log"))
 	     (delfile  (lambda (exn)
-			 (debug:print-info 1 *default-log-port* " removing bad file " fullpath ", exn=" exn)
+			 (debug:print-info 2 *default-log-port* " removing bad file " fullpath ", exn=" exn)
 			 (delete-file* fullpath)
 			 #f)))
 	(if (and (file-exists? fullpath)
 		 (file-read-access? fullpath))
 	    (handle-exceptions

Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -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)

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -1994,11 +1994,11 @@
   
 ;; This one is for running with no db access (i.e. via rmt: internally)
 (define (tests:set-full-meta-info db test-id run-id minutes work-area remtries)
 ;; (define (tests:set-full-meta-info test-id run-id minutes work-area)
 ;;  (let ((remtries 10))
-  (let* ((cpuload  (get-cpu-load))
+  (let* ((cpuload  (commonmod:get-cpu-load))
 	 (diskfree (get-df (current-directory)))
 	 (uname    (get-uname "-srvpio"))
 	 (hostname (get-host-name)))
     (tests:update-central-meta-info run-id test-id cpuload diskfree minutes uname hostname)))