diff --git a/src/bbstool.scm b/src/bbstool.scm
index ac03f55..c751d23 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -167,17 +167,19 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
       #f))
 
 ;; Load ML(s) and merge them
-(define MB
+(define-values (MB internal-ml)
   (if (-ml-all-)
       (let ()
 	(define mls (load-mailman-lists))
-	(foldl (lambda (mb ml)
-		 (members-base-merge-mailman mb ml))
-	       MB0
-	       mls))
+	(values (foldl (lambda (mb ml)
+			 (members-base-merge-mailman mb ml))
+		       MB0
+		       mls)
+		(find-maiman-list mls "internal")))
       (let ()
 	(define internal-ml (load-mailman-list "internal"))
-	(members-base-merge-mailman MB0 internal-ml))))
+	(values (members-base-merge-mailman MB0 internal-ml)
+		internal-ml))))
 
 ;; If a member is specified by either id or nick, get its record
 (define mr
@@ -271,7 +273,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (print-unpaired-table MB))
   ((mlsync)
    (if (-normal-month-)
-       (print "Mailman sync.")
+       (mailman-sync-members internal-ml (members-base-active-emails MB))
        (print "Mailman synchronization disabled with manually specified current month.")))
   (else
    (print "Nothing to do."))