@@ -1492,10 +1492,11 @@
          (max-concurrent-jobs   (configf:lookup-number *configdat* "setup" "max_concurrent_jobs" default: 50))
          (reglen                (if (number? reglen-in) reglen-in 1))
          (last-time-incomplete  (- (current-seconds) 900)) ;; force at least one clean up cycle
          (last-time-some-running (current-seconds))
          ;; (tdbdat                (tasks:open-db))
+	 (misc-data             (make-hash-table)) ;; use as needed
          (runsdat (make-runs:dat
                    ;; hed: hed
                    ;; tal: tal
                    ;; reg: reg
                    ;; reruns: reruns
@@ -1552,10 +1553,16 @@
           (begin
             (set! last-time-incomplete (current-seconds))
             ;; (rmt:find-and-mark-incomplete-all-runs)
 	    ))
 
+      ;; WAIT FOR TIME ON TIGHT LOOP
+      (if (< (- (current-milliseconds)(hash-table-ref/default misc-data "tight-loop-last-time" 0))
+	     100) ;; less than 1/100 second since came through the loop
+	  (thread-sleep! 0.1)) ;; wait a 1/100 seconds
+      (hash-table-set! misc-data "tight-loop-last-time" (current-milliseconds))
+      
       ;; (print "Top of loop, hed=" hed ", tal=" tal " ,reruns=" reruns)
       (let* ((test-record (hash-table-ref test-records hed))
 	     (test-name   (tests:testqueue-get-testname test-record))
 	     (tconfig     (tests:testqueue-get-testconfig test-record))
 	     (jobgroup    (configf:lookup tconfig "test_meta" "jobgroup"))