Index: common.scm ================================================================== --- common.scm +++ common.scm @@ -2119,12 +2119,12 @@ ((and (> loadjmp (cond ((> numcpus 8)(/ numcpus 4)) ((> numcpus 4)(/ numcpus 2)) (else 0.5))) (> count 0)) - (debug:print-info 0 *default-log-port* "waiting " adjwait " seconds due to load jump " loadjmp " > numcpus " numcpus - (if msg (conc " " msg) "")) + (debug:print-info 0 *default-log-port* "waiting " adjwait " seconds due to possible load jump " loadjmp ". " + (if msg msg "")) (thread-sleep! adjwait) (common:wait-for-cpuload maxload numcpus waitdelay count: (- count 1) msg: msg remote-host: remote-host)) (else (if (> num-tries 0) (if (common:low-noise-print 30 (conc (round first) "-load-acceptable-" (or remote-host "localhost")))