gistfile1.txt

diff --git a/src/Perl6/Optimizer.nqp b/src/Perl6/Optimizer.nqp
index 7c099bd..fc25f78 100644
--- a/src/Perl6/Optimizer.nqp
+++ b/src/Perl6/Optimizer.nqp
@@ -474,8 +474,8 @@ my class BlockVarOptimizer {
     method is_poisoned() { $!poisoned }
 
     method is_flattenable() {
+        return 0 if $!poisoned || $!uses_bindsig;
         for %!decls {
-            return 0 if $_.value.scope eq 'lexical';
             return 0 if $_.value.decl eq 'param';
         }
         1
@@ -871,7 +871,7 @@ class Perl6::Optimizer {
         # If the block is immediate, we may be able to inline it.
         my int $flattened := 0;
         my $result        := $block;
-        if $block.blocktype eq 'immediate' && !$*DYNAMICALLY_COMPILED && !$vars_info.is_poisoned {
+        if $block.blocktype eq 'immediate' && !$*DYNAMICALLY_COMPILED && $vars_info.is_flattenable {
             # Scan symbols for any non-interesting ones.
             my @sigsyms;
             for $block.symtable() {