diff --git a/src/members-print.scm b/src/members-print.scm
index 2591238..1957047 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -541,6 +541,7 @@
 	 (cons
 	  (list (ansi-string #:bgblue #:brightyellow #:bold "Member")
 		(ansi-string #:bgblue #:brightyellow #:bold "Status")
+		(ansi-string #:bgblue #:brightyellow #:bold "Current")
 		(ansi-string #:bgblue #:brightyellow #:bold "Fees")
 		(ansi-string #:bgblue #:brightyellow #:bold "Credit")
 		(ansi-string #:bgblue #:brightyellow #:bold "Payments")
@@ -551,6 +552,7 @@
 	      (let ((total (list-ref member 5)))
 		(list (list-ref member 0)
 		      (list-ref member 1)
+		      "---"
 		      (sprintf "\t~A" (list-ref member 2))
 		      (sprintf "\t~A" (list-ref member 3))
 		      (sprintf "\t~A" (list-ref member 4))