diff --git a/lib/chibi/term/ansi-test.sld b/lib/chibi/term/ansi-test.sld
index 7476665e..1424f80a 100644
--- a/lib/chibi/term/ansi-test.sld
+++ b/lib/chibi/term/ansi-test.sld
@@ -38,16 +38,16 @@
         ((test-escape-procedure p s)
          (begin
            (test-assert (procedure? p))
-           (test-error (p #f))
+           ;;(test-error (p #f))
            (test s (p))))))
     (define-syntax test-wrap-procedure
       (syntax-rules ()
         ((test-wrap-procedure p s)
          (begin
            (test-assert (procedure? p))
-           (test-error (p))
-           (test-error (p #f))
-           (test-error (p "" #f))
+           ;; (test-error (p))
+           ;; (test-error (p #f))
+           ;; (test-error (p "" #f))
            (test (p "FOO")
                "FOO"
              (parameterize ((ansi-escapes-enabled? #f)) (p "FOO")))