capturelex.diff

diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
index 646413a..f0815e7 100644
--- a/src/Perl6/Actions.pm
+++ b/src/Perl6/Actions.pm
@@ -3740,6 +3740,7 @@ class Perl6::Actions is HLL::Actions {
                 PAST::Var.new( :scope('lexical_6model'), :name('$!'), :isdecl(1) ),
                 PAST::Var.new( :scope('lexical_6model'), :name('$_') ),
             ),
+            PAST::Op.new( :inline("    .const 'Sub' %r =\"" ~ $handler<past_block>.subid() ~ "\"\n    capture_lex %r")),
             PAST::Op.new( :pasttype('call'),
                 $handler,
             ));