diff --git a/core/math/integers/integers-tests.factor b/core/math/integers/integers-tests.factor
index 93567ee71a..d576bb312f 100755
--- a/core/math/integers/integers-tests.factor
+++ b/core/math/integers/integers-tests.factor
@@ -192,6 +192,8 @@ unit-test
 [ f ] [ 0 power-of-2? ] unit-test
 [ t ] [ 1 power-of-2? ] unit-test
 
+: ratio>float [ >bignum ] bi@ /f ;
+
 [ 5. ] [ 5 1 ratio>float ] unit-test
 [ 4. ] [ 4 1 ratio>float ] unit-test
 [ 2. ] [ 2 1 ratio>float ] unit-test
@@ -214,6 +216,6 @@ unit-test
         drop
         random-integer
         random-integer
-        [ >float / ] [ ratio>float ] 2bi 0.1 ~
+        [ >float / ] [ /f ] 2bi 0.1 ~
     ] all?
 ] unit-test