diff --git a/extra/parser-combinators/parser-combinators.factor b/extra/parser-combinators/parser-combinators.factor
index d6c44659a5..80d25c1bb7 100755
--- a/extra/parser-combinators/parser-combinators.factor
+++ b/extra/parser-combinators/parser-combinators.factor
@@ -32,6 +32,8 @@ M: token-parser parse ( input parser -- list )
         2drop nil
     ] if ;
 
+: 1token ( n -- parser ) 1string token ;
+
 TUPLE: satisfy-parser quot ;
 
 C: satisfy satisfy-parser ( quot -- parser )