diff --git a/src/members-fees.scm b/src/members-fees.scm
index 0bf64ec..2a6c12d 100644
--- a/src/members-fees.scm
+++ b/src/members-fees.scm
@@ -104,12 +104,12 @@
    (if e
        (if (member 'existing (cadr e))
 	   (if (member 'suspended (cadr e))
-	       (ansi-string #:bgdarkgrey "\xc2\xa0\xc2\xa0\x1b[0m") ; Suspended
+	       (ansi-string #:bgdarkgrey "\xc2\xa0\xc2\xa0") ; Suspended
 	       (if (member 'destroyed (cadr e))
-		   (ansi-string #:bgblack "\xc2\xa0\xc2\xa0\x1b[0m") ; Destroyed
+		   (ansi-string #:bgblack "\xc2\xa0\xc2\xa0") ; Destroyed
 		   (if (member 'student (cadr e))
-		       (ansi-string #:bgyellow "\xc2\xa0\xc2\xa0\x1b[0m") ; Student
-		       (ansi-string #:bggreen "\xc2\xa0\xc2\xa0\x1b[0m")))) ; Normal
+		       (ansi-string #:bgyellow "\xc2\xa0\xc2\xa0") ; Student
+		       (ansi-string #:bggreen "\xc2\xa0\xc2\xa0")))) ; Normal
 	   "\xc2\xa0\xc2\xa0") ; Nonexistent - should not happen
        "\xc2\xa0\xc2\xa0")) ; Nonexistent
 
diff --git a/src/members-print.scm b/src/members-print.scm
index a62858f..d240b61 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -143,6 +143,7 @@
 		 (member-payments->table mr)
 		 (member-calendar->table mr))
 	   )
+     #:ansi #t
      #:row0-border #t
      #:col-border #t))
    (let* ((balance (member-balance mr))