As a status update: This code no longer segfaults on Moar:
$ perl6-m -e 'A: for 1 { for 1 { last A }; CONTROL { when CX::Last { say "last" }; default { .perl.say } } }' chars requires a concrete string, but got null in block at -e:1 in block at -e:1 in block <unit> at -e:1