diff --git a/member-record.scm b/member-record.scm
index 2b76e0c..8780196 100644
--- a/member-record.scm
+++ b/member-record.scm
@@ -49,6 +49,7 @@
 	 (chicken base)
 	 (chicken string)
 	 (chicken sort)
+	 (chicken format)
 	 dictionary
 	 period
 	 testing
@@ -161,6 +162,11 @@
 			     ((#\N) (mr-ref mr 'nick))
 			     ((#\I) (number->string (mr-ref mr 'id)))
 			     ((#\S) (number->string (member-suspended-months mr)))
+			     ((#\E)
+			      (let ((n (length (mr-ref mr member-file-error-symbol '()))))
+				(if (<= n 2)
+				    ""
+				    (sprintf "[~A]" (- n 2)))))
 			     ((#\~) "~"))
 			   resl))
 	       (loop (cdr fmtl)
diff --git a/members-base.scm b/members-base.scm
index 3633c21..3d516e8 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -309,11 +309,11 @@
 	   (destroyed-mrs (dict-ref bi 'destroyed))
 	   (student-mrs (dict-ref bi 'students)))
       (print a:success "  Active (" (length active-mrs) "): " a:default
-	     (member-records->string (sort active-mrs member<?)))
+	     (member-records->string (sort active-mrs member<?) "~N~E"))
       (print a:warning "  Suspended (" (length suspended-mrs) "): " a:default
-	     (member-records->string (sort suspended-mrs member<?)))
+	     (member-records->string (sort suspended-mrs member<?) "~N~E"))
       (print a:warning "  Destroyed (" (length destroyed-mrs) "): " a:default
-	     (member-records->string (sort destroyed-mrs member<?)))
+	     (member-records->string (sort destroyed-mrs member<?) "~N~E"))
       (print a:highlight "  Students (" (length student-mrs) "): " a:default
 	     (member-records->string (sort student-mrs member<?)))
       (let ((suspended2 (filter-members-by-predicate