diff --git a/src/mailman.scm b/src/mailman.scm
index 87ac5dc..ba6655e 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -45,12 +45,15 @@
    (make-pathname (*mailman-bin*) bin))
 
  ;; Mailman-specific process output lines capture
- (define (get-mailman-output-lines bin)
+ (define (get-mailman-output-lines bin . args)
    (get-process-output-lines
-    (mailman-bin bin)))
+    (string-intersperse
+     (cons (mailman-bin bin)
+	   args)
+     " ")))
 
  ;; Returns the list of available lists
  (define (list-mailman-lists)
-   (get-mailman-output-lines "list_lists"))
+   (get-mailman-output-lines "list_lists" "-b"))
 
  )