diff --git a/src/members-print.scm b/src/members-print.scm
index eb2f853..6dfc715 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -203,7 +203,8 @@
 	  (active-mrs (ldict-ref bi 'active))
 	  (suspended-mrs (ldict-ref bi 'suspended))
 	  (destroyed-mrs (ldict-ref bi 'destroyed))
-	  (student-mrs (ldict-ref bi 'students)))
+	  (student-mrs (ldict-ref bi 'students))
+	  (problem-mrs (ldict-ref bi 'problems)))
      (print "Known members: " (length all-mrs))
      (newline)
      (print
@@ -223,6 +224,9 @@
 		(if (null? suspended2)
 		    #f
 		    (members-table-row (ansi #:magenta) "Suspended (long):" suspended2 "~N (~S)")))
+	      (if (null? problem-mrs)
+		  #f
+		  (members-table-row (ansi #:red #:bold) "Problems:" problem-mrs "~N~E"))
 	      ))
        #:ansi #t
        #:row-border #t