diff --git a/src/code/numbers.lisp b/src/code/numbers.lisp
index d7cd927..04bc10f 100644
--- a/src/code/numbers.lisp
+++ b/src/code/numbers.lisp
@@ -951,7 +951,8 @@ the first."
     ((bignum bignum)
      (zerop (bignum-compare x y)))
 
-    ((ratio integer) nil)
+;;    ((ratio integer) nil)
+    ((ratio integer) (and (eql (denominator x) 1) (eql (numerator x) y)))
     ((ratio ratio)
      (and (eql (numerator x) (numerator y))
           (eql (denominator x) (denominator y))))