diff --git a/src/bbstool.scm b/src/bbstool.scm
index cd44d13..ceb7328 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -65,8 +65,9 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 (define -run-tests?- (make-parameter #f))
 (define -web-dir- (make-parameter #f))
 (define -bank-dir- (make-parameter #f))
-(define -cards-enabled- (make-parameter #t))
+(define -normal-month- (make-parameter #t))
 (define -jendasap-checked- (make-parameter "checked.ntlm"))
+(define -ml-all- (make-parameter #f))
 
 ;; Arguments parsing
 (command-line
@@ -84,7 +85,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  "Configuration options:"
  (-members (dir) "Members base directory" (*members-directory* dir))
  (-month (YYYY-MM) "Specify current month"
-	 (-cards-enabled- #f)
+	 (-normal-month- #f)
 	 (*current-month* (string->month YYYY-MM)))
  (-tstyle (style) "Use given table style: debug, ascii, unicode"
 	  (*table-border-style* (string->symbol style)))
@@ -94,6 +95,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	   (-bank-dir- dir))
  (-checked (file) "JendaSAP checked.ntlm file"
 	   (-jendasap-checked- file))
+ (-ml-all () "Load all mailman lists"
+	  (-ml-all- #t))
  ""
  "Query options:"
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))
@@ -161,11 +164,13 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	    mb))
       #f))
 
-;; Load ML(s)
-(define internal-ml (load-mailman-list "internal"))
-
-;; Merge
-(define MB (members-base-merge-mailman MB0 internal-ml))
+;; Load ML(s) and merge them
+(define MB
+  (cond ((-ml-all-)
+	 (define internal-ml (load-mailman-list "internal"))
+	 (members-base-merge-mailman MB0 internal-ml))
+	(else
+	 MB0)))
 
 ;; If a member is specified by either id or nick, get its record
 (define mr
@@ -222,7 +227,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (print "New member id: " (gen-member-id MB))
    (newline))
   ((gencards)
-   (if (-cards-enabled-)
+   (if (-normal-month-)
        (apply cards-export MB (-fname-))
        (print "Cards export disabled with manually specified current month.")))
   ((problems)
diff --git a/src/members-print.scm b/src/members-print.scm
index 562941a..9642116 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -138,7 +138,7 @@
 				      (ansi-string #:red #:bold "---")))))))
 		     sikeys))
 	  (mailman (list (list "Mailing Lists"
-			       (string-intersperse (member-mailman mr) ", "))))
+			       (string-intersperse (member-mailman mr) "\n"))))
 	  (result (filter identity (append head body mailman))))
      (table->string result #:table-border #f #:row-border #t #:col-border #t #:ansi #t)))