Use table width limit.

src/members-print.scm

@@ -296,9 +296,8 @@
 	 #f
 	 (list (string-append "\t" label)
 	       (length mrs)
-	       (ansi-paragraph-format
 	       (member-records->string mrs fmt)
-		60)))))
+	       ))))
 
  ;; Prints nicely aligned members base info
  (define (print-members-base-table mb)
@@ -384,6 +383,7 @@
        #:border '(((#:bottom #:right light) ... (#:bottom light))
 		  ...
 		  ((#:right light) ... none))
+       #:width 70
        #:ansi-reset? #t)))
    (let ((pmrs (find-members-by-predicate mb brmember-file-has-problems?)))
      (when (not (null? pmrs))