diff --git a/src/bbstool.scm b/src/bbstool.scm
index ceb7328..f62ec7d 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -166,11 +166,16 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 ;; 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 (-ml-all-)
+      (let ()
+	(define internal-ml (load-mailman-list "internal"))
+	(members-base-merge-mailman MB0 internal-ml))
+      (let ()
+	(define mls (load-mailman-lists))
+	(foldl (lambda (mb ml)
+		 (members-base-merge-mailman mb ml))
+	       MB0
+	       mls))))
 
 ;; If a member is specified by either id or nick, get its record
 (define mr