@@ -691,21 +691,21 @@
 ;;   (rmt:send-receive #f 'get-run-ids-matching (list keynames target res)))
 
 (define (rmt:get-prereqs-not-met run-id waitons ref-test-name ref-item-path #!key (mode '(normal))(itemmaps #f))
   (rmt:send-receive 'get-prereqs-not-met run-id (list run-id waitons ref-test-name ref-item-path mode itemmaps)))
 
-(define (rmt:get-count-tests-running-for-run-id run-id)
-  (rmt:send-receive 'get-count-tests-running-for-run-id run-id (list run-id)))
+(define (rmt:get-count-tests-running-for-run-id run-id fastmode)
+  (rmt:send-receive 'get-count-tests-running-for-run-id run-id (list run-id fastmode)))
 
 (define (rmt:get-not-completed-cnt run-id)
   (rmt:send-receive 'get-not-completed-cnt run-id (list run-id)))
 
 
 ;; Statistical queries
 
-(define (rmt:get-count-tests-running run-id)
-  (rmt:send-receive 'get-count-tests-running run-id (list run-id)))
+(define (rmt:get-count-tests-running run-id fastmode)
+  (rmt:send-receive 'get-count-tests-running run-id (list run-id fastmode)))
 
 (define (rmt:get-count-tests-running-for-testname run-id testname)
   (rmt:send-receive 'get-count-tests-running-for-testname run-id (list run-id testname)))
 
 (define (rmt:get-count-tests-running-in-jobgroup run-id jobgroup)