From 4f752d81f0a988d220dc3e4899bb03eb5e4b2e20 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Mon, 20 Mar 2023 19:16:07 +0100
Subject: [PATCH] Print more information about invalid ids.

---
 members-base.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/members-base.scm b/members-base.scm
index 501211f..ec74ab3 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -364,7 +364,14 @@
        (print "      Invalid: "
 	      (length iids)
 	      " ("
-	      (string-intersperse (map number->string iids) ", ")
+	      (string-intersperse
+	       (map (lambda (id)
+		      (let ((mr (find-member-by-id MB id)))
+			(member-format
+			 "~I - ~N"
+			 mr)))
+		    iids)
+	       ", ")
 	      ")"))))
 
  ;; Performs self-tests of this module.