diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 2a071e1..afb38fd 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -291,11 +291,14 @@
       (char-upcase (car l))
       (map char-downcase (cdr l))))))
 
-(define (check-mailing-list mls name)
+(define* (check-mailing-list mls name #:pred? (pred? #f))
   (define ml (find-mailman-list mls name))
   (let-values (((missing surplus)
 		(mailman-compare-members ml
-					 (mbase-active-emails MB #:suspended #t))))
+					 (mbase-active-emails MB
+							      #:suspended #t
+							      #:pred? pred?
+							      ))))
     (if (null? (cdr ml))
 	(print "Skipping ML check - not loaded")
 	(if (and (null? missing)