diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 2286dc1..97479e0 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -300,12 +300,12 @@
    (print-unpaired-table MB))
   ((mlsync)
    (if (-normal-month-)
-       (mailman-sync-members internal-ml (mbase-active-emails MB))
+       (mailman-sync-members internal-ml (mbase-active-emails MB #:suspended #t))
        (print "Mailman synchronization disabled with manually specified current month.")))
   ((mlcheck)
    (let-values (((missing surplus)
 		 (mailman-compare-members internal-ml
-					  (mbase-active-emails MB))))
+					  (mbase-active-emails MB #:suspended #t))))
      (if (and (null? missing)
 	      (null? surplus))
 	 (print "Internal mailing list membership in sync.")