diff --git a/extra/io/random/random.factor b/extra/io/random/random.factor
index d9ce6c6838..a12574fb43 100644
--- a/extra/io/random/random.factor
+++ b/extra/io/random/random.factor
@@ -21,7 +21,7 @@ PRIVATE>
     [| line line# |
         line# random :> r
         r n < [
-            line# n <
+            line# n <=
             [ line r accum insert-nth! ]
             [ line r accum set-nth ] if
         ] when