diff --git a/basis/random/random.factor b/basis/random/random.factor
index 6332d7cf8c..c1dd146206 100755
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -39,7 +39,7 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
             length [
                 log2 8 + 8 /i
                 random-bytes byte-array>bignum
-            ] keep wrap
+            ] keep mod
         ] keep nth
     ] if-empty ;