diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index f58b6526..f07607c0 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -664,7 +664,9 @@
       (if (real? expect)
           (and (inexact? expect)
                (real? res)
-               (inexact? res)
+               ;; tests which expect an inexact value can
+               ;; accept an equivalent exact value
+               ;; (inexact? res)
                (approx-equal? expect res (current-test-epsilon)))
           (and (complex? res)
                (complex? expect)