From 5858e8dd86bf483722b457fd3d53b72c90f7ec1f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 10 May 2023 21:37:00 +0200
Subject: [PATCH] Extract problems.

---
 src/mbase.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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))