diff --git a/src/mailman.scm b/src/mailman.scm
index a74a368..3247ef5 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -181,7 +181,7 @@
      (mailman-compare-members ml emails))
    (define listname (mailman-list-name ml))
    (let loop ((emails missing))
-     (add-emails-to-mailman-list listname (car emails))
+     (add-email-to-mailman-list listname (car emails))
      (loop (cdr emails)))
    (let loop ((emails surplus))
      (remove-email-from-mailman-list listname (car emails))