Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -182,11 +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-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))