diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index 31403b41..b4891576 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -671,6 +671,7 @@
       (if (real? expect)
           (and (inexact? expect)
                (real? res)
+               (inexact? res)
                (approx-equal? expect res (current-test-epsilon)))
           (and (complex? res)
                (complex? expect)