diff --git a/extra/io/random/random.factor b/extra/io/random/random.factor
index 5b8d022e95..3186e263e4 100644
--- a/extra/io/random/random.factor
+++ b/extra/io/random/random.factor
@@ -12,5 +12,5 @@ IN: io.random
 
 PRIVATE>
 
-: random-line ( -- line/f )
+: random-readln ( -- line/f )
     f 1 [ swap [ ?replace ] [ 1 + ] bi ] each-line drop ;