diff --git a/src/mailman.scm b/src/mailman.scm
index 50476a8..192f42b 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -163,7 +163,7 @@
    (print "Remove " email " from " listname ".")
    (let ((result
 	  (get-mailman-output-lines
-	   "remove_members" (car listname)
+	   "remove_members" listname
 	   (sprintf "\"~A\"" email))))
      (let loop ((lines result))
        (when (not (null? lines))