diff --git a/random-string/random-string.factor b/random-string/random-string.factor
index fb4c0c72..9704e02b 100644
--- a/random-string/random-string.factor
+++ b/random-string/random-string.factor
@@ -9,11 +9,8 @@ CONSTANT: valid-chars $[
     CHAR: A CHAR: Z [a,b] CHAR: a CHAR: z [a,b] append
 ]
 
-: random-char ( -- ch )
-    valid-chars random ;
-
 : random-string ( n -- string )
-    [ random-char ] "" replicate-as ;
+    [ valid-chars random ] "" replicate-as ;
 
 : run-random-string ( -- )
     8 random-string print readln drop ;