@@ -529,10 +529,13 @@
   (rmt:send-receive 'roll-up-pass-fail-counts run-id (list run-id test-name item-path state status)))
 
 (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)))
+
 ;;======================================================================
 ;;  R U N S
 ;;======================================================================
 
 (define (rmt:get-run-info run-id)