@@ -661,21 +661,23 @@
 	   run-ids))))
 
 (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 fastmode)
-  (rmt:send-receive 'get-count-tests-running-for-run-id run-id (list run-id fastmode)))
+(define (rmt:get-count-tests-running-for-run-id run-id)
+  (if (number? run-id)
+      (rmt:send-receive 'get-count-tests-running-for-run-id run-id (list run-id))
+      0))
 
 (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 fastmode)
-  (rmt:send-receive 'get-count-tests-running run-id (list run-id fastmode)))
+(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-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)