Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -921,11 +921,11 @@
 	       (trying   (length srvrs))
 	       (nrun     (number-of-processes-running (conc "mtest.*server.*"testsuite".*"dbfname))))
 	  (set! *last-server-start-request-time* (current-seconds))
 	  (cond
 	   ((> load 4.0)
-	    (debug:print 0 *default-log-port* "Normalized load "load" on " (get-host-name) " is over the limit of 4.0. Not starting a server. Please reduce the load on "(get-host-name)" by killing some processes")
+	    (debug:print 0 *default-log-port* "Normalized load " load " over 4, (load: " (commonmod:get-cpu-load) " cores: " (get-current-host-cores) " exiting...")
 	    (thread-sleep! 1) ;; I'm not convinced that a delay here is helpful. -mrw-
 	    #f)
 	   ((> nrun 100)
 	    (debug:print 0 *default-log-port* nrun" servers running on " (get-host-name) ", not starting another.")
 	    (thread-sleep! 1)