io.random: Fix off-by-one error.

diff --git a/extra/io/random/random.factor b/extra/io/random/random.factor
index d9ce6c6838a66071957ca7b68867d52c787f2056..a12574fb4367dbcc4b41e6d3b203394434e91952 100644 (file)
--- 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