@@ -120,11 +120,11 @@
 	    itemdat))
 
 (define *last-num-running-tests* 0)
 (define *runs:can-run-more-tests-delay* 0)
 (define (runs:shrink-can-run-more-tests-delay)
-  (set! *runs:can-run-more-tests-delay* (/ *runs:can-run-more-tests-delay* 2)))
+  (set! *runs:can-run-more-tests-delay* 0)) ;; (/ *runs:can-run-more-tests-delay* 2)))
 
 (define (runs:can-run-more-tests test-record)
   (thread-sleep! *runs:can-run-more-tests-delay*)
   (let* ((tconfig                 (tests:testqueue-get-testconfig test-record))
 	 (jobgroup                (config-lookup tconfig "requirements" "jobgroup"))
@@ -140,11 +140,11 @@
 					1)))
 	 (job-group-limit         (config-lookup *configdat* "jobgroups" jobgroup)))
     (if (and (> (+ num-running num-running-in-jobgroup) 0)
 	     (< *runs:can-run-more-tests-delay* 10))
 	(begin
-	  (set! *runs:can-run-more-tests-delay* (+ *runs:can-run-more-tests-delay* 0.1))
+	  (set! *runs:can-run-more-tests-delay* (+ *runs:can-run-more-tests-delay* 1)) ;; 0.1))
 	  (debug:print-info 14 "can-run-more-tests-delay: " *runs:can-run-more-tests-delay*)))
     (if (not (eq? *last-num-running-tests* num-running))
 	(begin
 	  (debug:print 2 "max-concurrent-jobs: " max-concurrent-jobs ", num-running: " num-running)
 	  (set! *last-num-running-tests* num-running)))