From eb80b4e70993fb2d2a17d4b6dc10bed5bc273636 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Wed, 22 Mar 2023 20:03:16 +0100
Subject: [PATCH] Add count to destroy candidates.

---
 members-base.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/members-base.scm b/members-base.scm
index 799c6c0..93c2def 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -324,7 +324,8 @@
 			 (lambda (mr)
 			   (>= (member-suspended-months mr) 24)))))
 	(when (not (null? suspended2))
-	  (print (ansi #:magenta) "  Suspended for at least 24 months: " a:default
+	  (print (ansi #:magenta) "  Suspended for at least 24 months ("
+		 (length suspended2) "): " a:default
 		 (member-records->string (sort suspended2 member<?) "~N (~S)"))))
       (when (not (null? invalid-mrs))
 	(print a:error "  Invalid Id (" (length invalid-mrs) "): "