lexicals not found in PIRC

[kjs]

lexicals can't be found in nested .subs. the following works in parrot, but the generated bytecode doesn't seem to work:

.sub main

.lex "x", $P0 $P0 = new "Integer" $P0 = 42 foo()

.end

.sub foo :outer("main")

$P0 = find_lex "x" print $P0

.end

So, apparently, lexicals are not stored correctly. This needs fixing.