quantifier with % error includes the token it appears in

RT#124219: https://rt.perl.org/Ticket/Display.html?id=124219

S05-grammar/example.t

@@ -1,7 +1,9 @@
 use v6;
+use lib 't/spec/packages';
 use Test;
+use Test::Util;
 
-plan 9;
+plan 10;
 
 =pod calling a rule a grammar with arguments
 
@@ -70,4 +72,13 @@ is($content ~~ m/<schedule>/, $content, 'match rule');
     is ~$result, 'all-good', 'token `return` parses things correctly';
 }
 
+# RT #124219
+{
+    my $code = ‘grammar Bug { token term { a }; token TOP { <term> % \n } }’
+        ~ ‘Bug.parse( 'a' );’;
+
+    is_run $code, { :out(''), :err(/'token TOP { <term>'/), :status },
+        '`quantifier with %` error includes the token it appears in';
+}
+
 # vim: ft=perl6