Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -732,11 +732,11 @@
 ;; > 0 RUNNING and test_dead then send KILLREQ ==> COMPLETED
 ;; 0 RUNNING ==> this is actually the first condition, should not get here
 
 (define (launch:end-of-run-check run-id )
     (let* ((not-completed-cnt (rmt:get-not-completed-cnt run-id))  
-           (running-cnt (rmt:get-count-tests-running-for-run-id run-id))
+           (running-cnt (rmt:get-count-tests-running-for-run-id run-id)) ;; fastmode=no
            (all-test-launched (rmt:get-var (conc "lunch-complete-" run-id)))
            (current-state (rmt:get-run-state run-id))
            (current-status (rmt:get-run-status run-id)))
      ;;get-vars run-id to query metadata table to check if all completed. if all-test-launched = yes then only not-completed-cnt = 0 means everyting is completed if no entry found in the table do nothing 
      (debug:print 0 *default-log-port* "Running test cnt :" running-cnt)                      

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1638,10 +1638,11 @@
 			   testmode:    testmode
 			   newtal:      newtal
 			   itemmaps:    itemmaps
 			   ;; prereqs-not-met: prereqs-not-met
 			   )))
+	(thread-sleep! 0.2) ;; no point in blasting though this a thousand times a second
 	(runs:dat-regfull-set! runsdat regfull)
     
 	(if (> num-running 0)
             (set! last-time-some-running (current-seconds)))