diff --git a/piclib/picrin/test.scm b/piclib/picrin/test.scm
index 350c76e9..28650b84 100644
--- a/piclib/picrin/test.scm
+++ b/piclib/picrin/test.scm
@@ -83,10 +83,4 @@
     (syntax-rules ()
       ((_) (syntax-error "invalid use of test-syntax-error"))))
 
-  ;; (define (test-read-error str)
-  ;;   (test-assert
-  ;;       (guard (exn (else #t))
-  ;;         (read (open-input-string str))
-  ;;         #f)))
-
   (export test test-begin test-end test-values test-exit test-syntax-error))
diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm
index d22acc7e..7ee8934c 100644
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@@ -2025,6 +2025,12 @@
 (test '(a . c) (read (open-input-string "(a . #;b c)")))
 (test '(a . b) (read (open-input-string "(a . b #;c)")))
 
+;; (define (test-read-error str)
+;;   (test #t
+;;       (guard (exn (else #t))
+;;         (read (open-input-string str))
+;;         #f)))
+
 ;; (test-read-error "(#;a . b)")
 ;; (test-read-error "(a . #;b)")
 ;; (test-read-error "(a #;. b)")