diff --git a/brmsaptool.scm b/brmsaptool.scm
index d5f4b2b..fb7d659 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -41,9 +41,9 @@
 (dictionary-tests!)
 (month-tests!)
 (period-tests!)
+(ansi-tests!)
 (member-file-tests!)
 (command-line-tests!)
-(ansi-tests!)
 (newline)
 
 (command-line
diff --git a/member-file.scm b/member-file.scm
index 5512504..b681b57 100644
--- a/member-file.scm
+++ b/member-file.scm
@@ -40,7 +40,8 @@
 	 month
 	 period
 	 testing
-	 listing)
+	 listing
+	 ansi)
 
  ;; Specification of known keys for various types of parsing
  (define known-keys '(nick mail phone name born joined destroyed
@@ -79,7 +80,10 @@
  (define (report-line-error file-name lines highlights message)
    (print "Error in " file-name ": " message)
    (newline)
-   (print-source-listing lines highlights (*member-file-context*) "\x1b[31;1m" "\x1b[0m" "" "" "...")
+   (print-source-listing lines highlights
+			 (*member-file-context*)
+			 (ansi #:red #:bold) (ansi #:default)
+			 "" "" "...")
    (exit 1))
 
  ;; Parses given key-value line. Key is up to first space, value is the