diff --git a/extra/peg/peg-tests.factor b/extra/peg/peg-tests.factor
index 7467a4111a..f57fe83220 100644
--- a/extra/peg/peg-tests.factor
+++ b/extra/peg/peg-tests.factor
@@ -173,8 +173,8 @@ IN: peg.tests
   #! failure of that parser.
   [ expr ] delay "+" token "1" token 3seq "1" token 2choice ;
 
-{ "1" } [
-  "1+1" expr parse parse-result-ast   
+{ V{ V{ "1" "+" "1" } "+" "1" } } [
+  "1+1+1" expr parse parse-result-ast   
 ] unit-test
 
 { t } [