diff --git a/src/brmember.scm b/src/brmember.scm
index cb065f4..ac1199b 100644
--- a/src/brmember.scm
+++ b/src/brmember.scm
@@ -65,6 +65,7 @@
 
   brmember-chair?
   brmember-council?
+  brmember-councilml?
   brmember-revision?
   brmember-grant?
   
@@ -394,6 +395,7 @@
  ;; Predicates for all organizational bodies recognized
  (define brmember-chair? (brmember-body? 'chair))
  (define brmember-council? (brmember-body? 'council))
+ (define brmember-councilml? (brmember-body? 'councilml))
  (define brmember-revision? (brmember-body? 'revision))
  (define brmember-grant? (brmember-body? 'grant))
 
diff --git a/src/mailinglist.scm b/src/mailinglist.scm
index 73f3e5b..b88a338 100644
--- a/src/mailinglist.scm
+++ b/src/mailinglist.scm
@@ -73,6 +73,7 @@
  (define (rada-ml-pred? mr)
    (or (brmember-council? mr)
        (brmember-chair? mr)
-       (brmember-revision? mr)))
+       (brmember-revision? mr)
+       (brmember-councilml? mr)))
 
  )