diff --git a/src/mailman.scm b/src/mailman.scm
index 6bc6d6d..a63a713 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -149,8 +149,8 @@
  (define (add-email-to-mailman-list listname email)
    (print "Add " email " to " listname ".")
    (let ((result
-	  (get-mailman-output-lines
-	   "add_members" "-r" "-" listname
+	  (mailman-send/recv
+	   (list "add_members" "-r" "-" listname)
 	   (sprintf "<<<\"~A\"" email))))
      (let loop ((lines result))
        (when (not (null? lines))