diff --git a/src/mbase.scm b/src/mbase.scm
index 8de51d2..160649a 100644
--- a/src/mbase.scm
+++ b/src/mbase.scm
@@ -220,8 +220,10 @@
 	  (di5 (ldict-set di4 'destroyed
 			  (filter brmember-destroyed? members)))
 	  (di6 (ldict-set di5 'month (*current-month*)))
-	  (di7 (ldict-set di6 'total members)))
-     di7))
+	  (di7 (ldict-set di6 'total members))
+	  (di8 (ldict-set di7 'problems
+			  (find-members-by-predicate mb-arg brmember-has-problems?))))
+     di8))
 
  (define (members-base-oldest-month mb)
    (make-cal-month 2015 1))