@@ -323,11 +323,11 @@
   (let* ((last-time (hash-table-ref/default *too-soon-delays* key #f)))
     (if (and last-time
 	     (< (- (current-seconds) last-time) dseconds))
 	(begin
 	  (if (runs:lownoise (conc "too-soon-delay"key) 60)
-	      (debug:print-info 0 *default-log-port* "Polling throttle for "key))
+	      (debug:print-info 2 *default-log-port* "Polling throttle for "key))
 	  (thread-sleep! wseconds)))
     (hash-table-set! *too-soon-delays* key (current-seconds))))
 
 (define (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs)
 
@@ -1671,10 +1671,11 @@
 		  (debug:print-info 2 *default-log-port* "Excessively fast loop, delaying 1/2 second"))
 	      (thread-sleep! 0.5)))
 	(set! *last-loop-time-ms* (current-milliseconds))
      
 	(runs:dat-regfull-set! runsdat regfull)
+
 
 	(if (> (- (current-seconds) *last-test-launch*) 5)        ;; be pretty aggressive for five seconds after
 	    (runs:too-soon-delay (conc "loop delay " hed) 1 0.6)    ;; starting a test then apply more delay
 	    (runs:too-soon-delay (conc "loop delay " hed) 1 0.1))