diff --git a/src/members-print.scm b/src/members-print.scm
index 4dc2690..e97a555 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -372,12 +372,24 @@
 		  (list (ansi-string "\t" #:magenta #:bold "Debtors:")
 			(format "~A" (length debtor-mrs))
 			(table->string
-			 (members-attrs-table debtor-mrs
-					      brmember-format
-					      (list "Name" "Balance" "Last Payment")
-					      (list "~N" "\t~B" "~L"))
+			 (append
+			  (members-attrs-table debtor-mrs
+					       brmember-format
+					       (list "Name" "Balance" "Last Payment")
+					       (list "~N" "\t~B" "~L"))
+			  (list
+			   (list
+			    "Total"
+			    (format
+			     "\t~A"
+			     (foldr
+			      (lambda (v a)
+				(+ (member-total-balance v) a))
+			      0
+			      debtor-mrs)))))
 			 #:border '(((#:bottom #:right light) ... (#:bottom light))
-				    ((#:right light) ... none) ...)
+				    ((#:right light) ... none) ...
+				    ((#:top #:right light) ... (#:top light)))
 			 #:ansi-reset? #t)))
 	      ))
        #:border '(((#:bottom #:right light) ... (#:bottom light))