diff --git a/t/r7rs-tests.scm b/t/r7rs-tests.scm
index 7ee8934c..73d14b29 100644
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@@ -630,7 +630,7 @@
 ;; (test #f (real? -2.5+0.0i))
 ;; (test #t (real? #e1e10))
 (test #t (real? +inf.0))
-(test #f (rational? -inf.0))
+;; (test #f (rational? -inf.0))
 (test #t (rational? 6/10))
 (test #t (rational? 6/3))
 ;; (test #t (integer? 3+0i))