<statementlist>, not <EXPR>

Much better. moritz++

    $ ./perl6 -e 'say "OH HAI"; my $a; {{{say "woot!"; $a}}}'
    OH HAI
    woot!

    $ ./perl6 -e 'say "OH HAI"; my $a; quasi { say "woo!"; {{{$a}}} }'
    OH HAI

src/Perl6/Grammar.pm

@@ -937,7 +937,7 @@ grammar Perl6::Grammar is HLL::Grammar {
     token term:sym<lambda>             { <?lambda> <pblock> }
     token term:sym<type_declarator>    { <type_declarator> }
     token term:sym<value>              { <value> }
-    token term:sym<unquote>            { '{{{' <?{ $*IN_QUASI }> <EXPR> '}}}' }
+    token term:sym<unquote>            { '{{{' <?{ $*IN_QUASI }> <statementlist> '}}}' }
 
     # XXX temporary Bool::True/Bool::False until we can get a permanent definition
     token term:sym<boolean> { 'Bool::'? $<value>=[True|False] » }