diff --git a/extra/peg/ebnf/ebnf-tests.factor b/extra/peg/ebnf/ebnf-tests.factor
index f613002fdf..1824c0342a 100644
--- a/extra/peg/ebnf/ebnf-tests.factor
+++ b/extra/peg/ebnf/ebnf-tests.factor
@@ -445,4 +445,8 @@ foo=<foreign any-char> 'd'
 
 { V{ "a" "\n" } } [
   "a\n" [EBNF foo='a' '\n'  => [[ drop '\n' ]] EBNF] call ast>>
+] unit-test
+
+{ t } [
+  [EBNF foo='a' foo='b' EBNF] drop t
 ] unit-test
\ No newline at end of file