@@ -20,10 +20,11 @@
   '(get-key-val-pairs
     get-keys
     test-toplevel-num-items
     get-test-info-by-id
     test-get-rundir-from-test-id
+    get-count-tests-running-for-testname
     get-count-tests-running
     get-count-tests-running-in-jobgroup
     get-previous-test-run-record
     get-matching-previous-test-run-records
     test-get-logfile-info
@@ -181,10 +182,11 @@
 	    
 	    ;; TESTS
 	    ((test-toplevel-num-items)         (apply db:test-toplevel-num-items dbstruct params))
 	    ((get-test-info-by-id)	       (apply db:get-test-info-by-id dbstruct params))
 	    ((test-get-rundir-from-test-id)    (apply db:test-get-rundir-from-test-id dbstruct params))
+	    ((get-count-tests-running-for-testname (apply db:get-count-tests-running-for-testname dbstruct params)))
 	    ((get-count-tests-running)         (apply db:get-count-tests-running dbstruct params))
 	    ((get-count-tests-running-in-jobgroup) (apply db:get-count-tests-running-in-jobgroup dbstruct params))
 	    ;; ((delete-test-step-records)        (apply db:delete-test-step-records dbstruct params))
 	    ((get-previous-test-run-record)    (apply db:get-previous-test-run-record dbstruct params))
 	    ((get-matching-previous-test-run-records)(apply db:get-matching-previous-test-run-records dbstruct params))