exception in anon sub with duplicate name bus errors

[coke]

$ more foo.pir
.sub asdf :anon :immediate
  die 'no'
.end

.sub adsf
say 'hi'
.end
$ ./parrot foo.pir
no
current instr.: 'asdf' pc 0 (foo.pir:2)
Bus error

partial backtrace

0x012e1af3 in imcc_globals_destroy (interp=0x500d10, ex_unused=1, param_unused=0x0) at compilers/imcc/pbc.c:316
316         code_segment_t *cs = IMCC_INFO(interp)->globals->cs;
(gdb) bt
#0  0x012e1af3 in imcc_globals_destroy (interp=0x500d10, ex_unused=1, param_unused=0x0) at compilers/imcc/pbc.c:316
#1  0x0107c8e8 in Parrot_exit (interp=0x500d10, status=1) at src/exit.c:91
#2  0x0107ba31 in die_from_exception (interp=0x500d10, exception=0x375e28) at src/exceptions.c:155
#3  0x0107bf0b in Parrot_ex_throw_from_op (interp=0x500d10, exception=0x375e28, dest=0x527398) at src/exceptions.c:225
#4  0x010107be in Parrot_die_sc (cur_opcode=0x527390, interp=0x500d10) at src/op
...