Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -530,11 +530,11 @@
 
 (define (rmt:update-pass-fail-counts run-id test-name)
   (rmt:general-call 'update-pass-fail-counts run-id (list run-id test-name run-id test-name run-id test-name)))
 
 (define (rmt:top-test-set-per-pf-counts run-id test-name)
-  (rmt:general-call 'top-test-set-per-pf-counts run-id (list run-id test-name)))
+  (rmt:send-receive 'top-test-set-per-pf-counts run-id (list run-id test-name)))
 
 ;;======================================================================
 ;;  R U N S
 ;;======================================================================
 

Index: tests/unittests/runs.scm
==================================================================
--- tests/unittests/runs.scm
+++ tests/unittests/runs.scm
@@ -153,12 +153,16 @@
       (string? 
        (file-exists?
 	;; (launch-test test-id run-id run-info keyvals runname test-conf test-name test-path itemdat params)
 	(launch-test 30001 1 rinfo keyvals "run1" tconfig "test1" test-path '() (make-hash-table)))))
 
-
+;;======================================================================
+;; M O R E   R E M O T E   C A L  L S
+;;======================================================================
 
+(test #f #f (rmt:set-tests-state-status 1 '("runfirst") "RUNNING" "WARN" "COMPLETED" "FAIL"))
+(test #f #f (rmt:top-test-set-per-pf-counts 1 "runfirst"))
 
 (exit 1)
 
 
 
@@ -320,17 +324,12 @@
 (test "server stop" #f (let ((hostname (car  *runremote*))
 			     (port     (cadr *runremote*)))
 			 (tasks:kill-server #t hostname port server-pid 'http)
 			 (open-run-close tasks:get-best-server tasks:open-db)))
 
-;;======================================================================
-;; M O R E   R E M O T E   C A L  L S
-;;======================================================================
-
-(test #f #f (rmt:set-tests-state-status 1 '("runfirst") "RUNNING" "WARN" "COMPLETED" "FAIL"))
 
 ;; (cdb:kill-server *runremote*)
 
 ;; (thread-join! th1 th2 th3)
 
 ;; ADD ME!!!! (db:get-prereqs-not-met *db* 1 '("runfirst") "" mode: 'normal)
 ;; ADD ME!!!! (rdb:get-tests-for-run *db* 1 "runfirst" #f '() '())