diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index 1957fc46e25..11311080f3d 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -371,6 +371,10 @@ token statement_control:sym<for> {
     <xblock(1)>
 }
 
+token statement_control:sym<foreach> {
+    <sym> <.nofun> <.obs("'foreach'", "'for'")>
+}
+
 token statement_control:sym<loop> {
     <sym>
     [ <?[({]> <.panic: "Whitespace required after 'loop'"> ]?