[perl #57270] close and then print causes assertion failure

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #57270]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=57270 >


$ svn info | grep Revi
Revision: 29734

$ ./perl6 -e '$*OUT.close; $*OUT.print("hello world")'
src/io/io.c:1047: failed assertion 'io'
Backtrace - Obtained 12 stack frames (max trace depth is 32).
  Parrot_confess
    Parrot_confess
      PIO_putps
        Parrot_print_p_s
          dod_register_pmc
            interpinfo_s
              enable_event_checking
                Parrot_runops_fromc
                  Parrot_runops_fromc_args
                    Parrot_runcode
                      start
                        start
Abort trap

Should probably be caught at the rakudo level.