diff --git a/deliberate/borda.scm b/deliberate/borda.scm
index 9e8b5af..9316066 100644
--- a/deliberate/borda.scm
+++ b/deliberate/borda.scm
@@ -3,7 +3,7 @@
   #:use-module (deliberate preference)
   #:use-module (deliberate utils)
   #:export (borda-score social-choice-borda social-preference-borda)
-  #:export (profile->scores groups->totals profile-borda-totals))
+  #:export (counts->scores groups->totals profile-borda-totals))
 
 ;; Calculate the borda score of each alternative in `ranked`.
 ;;
diff --git a/tests/test-borda.scm b/tests/test-borda.scm
index 297ce64..f28695c 100644
--- a/tests/test-borda.scm
+++ b/tests/test-borda.scm
@@ -46,7 +46,7 @@
   (borda-score test-alts test-pref))
 
 (test-equal test-scores
-  (profile->scores test-alts test-profile))
+  (counts->scores test-alts test-profile))
 
 (test-equal test-groups
   (group-by car test-scores))