From 633e4531a27c9a53a18993ac1d4eb07d368568b3 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 23 Oct 2012 16:55:17 -0700
Subject: [PATCH] io.random: Fix off-by-one error.

---
 extra/io/random/random.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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