Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -346,11 +346,11 @@
 	   (args:get-arg "-one-pass"))
       (exit 0))
 
   (if (runs:dat-load-mgmt-function runsdat)((runs:dat-load-mgmt-function runsdat)))
 
-  (let* ((num-running             (rmt:get-count-tests-running run-id))
+  (let* ((num-running             (rmt:get-count-tests-running-for-run-id run-id))
 	 (num-running-in-jobgroup (rmt:get-count-tests-running-in-jobgroup run-id jobgroup))
 	 (job-group-limit         (let ((jobg-count (configf:lookup *configdat* "jobgroups" jobgroup)))
 				    (if (string? jobg-count)
 					(string->number jobg-count)
 					jobg-count))))