diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
index f15a9b8390b..6a7bec65aba 100644
--- a/src/Perl6/Actions.pm
+++ b/src/Perl6/Actions.pm
@@ -131,7 +131,15 @@ method statement($/, $key?) {
                         :pasttype(~$mc<sym>), :node($/) );
         }
         if $ml {
-            $past := PAST::Op.new($ml<cond>.ast, $past, :pasttype(~$ml<sym>), :node($/) );
+            if ~$ml<sym> eq 'for' {
+                my $block := PAST::Block.new( :blocktype('immediate'),
+                    PAST::Var.new( :name('$_'), :scope('parameter'), :isdecl(1) ),
+                    $past);
+                $past := PAST::Op.new($ml<EXPR>.ast, $block, :pasttype(~$ml<sym>), :node($/) );
+            }
+            else {
+                $past := PAST::Op.new($ml<cond>.ast, $past, :pasttype(~$ml<sym>), :node($/) );
+            }
         }
     }
     elsif $<statement_control> { $past := $<statement_control>.ast; }
@@ -458,6 +466,7 @@ method statement_mod_cond:sym<unless>($/) { make $<cond>.ast; }
 
 method statement_mod_loop:sym<while>($/)  { make $<cond>.ast; }
 method statement_mod_loop:sym<until>($/)  { make $<cond>.ast; }
+method statement_mod_loop:sym<for>($/)    { make $<EXPR>.ast; }
 
 ## Terms
 
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index 852b77f84dc..860e10bd07c 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -425,6 +425,7 @@ proto token statement_mod_loop { <...> }
 
 token statement_mod_loop:sym<while> { <sym> :s <cond=.EXPR> }
 token statement_mod_loop:sym<until> { <sym> :s <cond=.EXPR> }
+token statement_mod_loop:sym<for>   { <sym> :s <EXPR> }
 
 ## Terms