diff --git a/extra/peg/ebnf/ebnf-tests.factor b/extra/peg/ebnf/ebnf-tests.factor
index 73db626685..ed38d37421 100644
--- a/extra/peg/ebnf/ebnf-tests.factor
+++ b/extra/peg/ebnf/ebnf-tests.factor
@@ -399,6 +399,16 @@ main = Primary
   "number=digit+:n 'a'" 'ebnf' parse remaining>> length zero?
 ] unit-test
 
+{ t } [
+  "foo=(name):n !(keyword) => [[ n ]]" 'rule' parse ast>>
+  "foo=name:n !(keyword) => [[ n ]]" 'rule' parse ast>> =
+] unit-test
+
+{ t } [
+  "foo=!(keyword) (name):n => [[ n ]]" 'rule' parse ast>>
+  "foo=!(keyword) name:n => [[ n ]]" 'rule' parse ast>> =
+] unit-test
+
 <<
 EBNF: parser1 
 foo='a' 
@@ -431,4 +441,4 @@ foo=<foreign any-char> 'd'
 
 { V{ CHAR: a "d" } } [
   "ad" parser4 ast>>
-] unit-test
\ No newline at end of file
+] unit-test