diff --git a/src/members-print.scm b/src/members-print.scm
index a62763f..229fec5 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -204,7 +204,10 @@
 	  (suspended-mrs (ldict-ref bi 'suspended))
 	  (destroyed-mrs (ldict-ref bi 'destroyed))
 	  (student-mrs (ldict-ref bi 'students))
-	  (problem-mrs (ldict-ref bi 'problems)))
+	  (problem-mrs (ldict-ref bi 'problems))
+	  (debtor-mrs (sort
+		       (members-to-notify mb 3)
+		       brmember<?)))
      (print "Known members: " (length all-mrs))
      (newline)
      (print
@@ -227,6 +230,9 @@
 	      (if (null? problem-mrs)
 		  #f
 		  (members-table-row (ansi #:red #:bold) "Problems:" problem-mrs "~N~E ~A"))
+	      (if (null? debtor-mrs)
+		  #f
+		  (members-table-row (ansi #:magenta #:bold) "Debtors:" debtor-mrs "~N ~B (~L)"))
 	      ))
        #:ansi #t
        #:row-border #t