diff --git a/src/members-print.scm b/src/members-print.scm
index 7503a46..7a0c624 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -337,14 +337,15 @@
 					      brmember-format
 					      (list "Name" "Balance" "Last Payment")
 					      (list "~N" "\t~B" "~L"))
-			 #:ansi #t
-			 #:row0-border #t
-			 #:col-border #t)))
+			 #:border '(((#:bottom #:right light) ... (#:bottom light))
+				    ...
+				    ((#:right light) ... none))
+			 #:ansi-reset? #t)))
 	      ))
-       #:ansi #t
-       #:row-border #t
-       #:col-border #t
-       )))
+       #:border '(((#:bottom #:right light) ... (#:bottom light))
+		  ...
+		  ((#:right light) ... none))
+       #:ansi-reset? #t)))
    (let ((pmrs (find-members-by-predicate mb brmember-has-problems?)))
      (when (not (null? pmrs))
        (newline)