diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index ad386dbbe8..0a8365899f 100644
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -330,7 +330,7 @@ TUPLE: token-parser symbol ;
 : parse-token ( input string -- result )
     ! Parse the string, returning a parse result
     [ ?head-slice ] keep swap [
-        <parse-result> f f f add-error
+        <parse-result>
     ] [
         [ seq>> pos get swap ] dip "'" "'" surround 1vector add-error f
     ] if ;