[perl #40608] key_append segfault

[via RT]

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


The following program segfaults Parrot:

  .sub main
      $P0 = new .Key
      push $P0, "test"
      push $P0, "test"
      print "not reached"
  .end

Which sucks. :-(