diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index fcaa90a..0cd8438 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -286,13 +286,13 @@
 	      (print "  " (car keys) ": " (length (ldict-ref status (car keys)))))
 	    (loop (cdr keys)))))))
 
-(define* (check-mailing-list mls name #:pred? (pred? #f))
+(define* (check-mailing-list mls name #:pred? (pred? #f) #:suspended (suspended #f))
   (define ml (find-mailman-list mls name))
   (when ml
     (let-values (((missing surplus)
 		  (mailman-compare-members ml
 					   (mbase-active-emails MB
-								#:suspended #t
+								#:suspended suspended
 								#:pred? pred?
 								))))
       (if (null? (cdr ml))
@@ -323,7 +323,7 @@
        (let ()
 	 (print-members-base-table MB)
 	 (newline)
-	 (check-mailing-list MLS "internal")
+	 (check-mailing-list MLS "internal" #:suspended #t)
 	 (check-mailing-list MLS "rada"
 			     #:pred? rada-ml-pred?)
 	 (check-mailing-list MLS "rk" #:pred? brmember-revision?)