[perl #27715] Fetching the class name of an anon. subclass causes coredump

[via RT]

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



 This code:

    newclass P0, "City"
    subclass P1, P0
    classname S0, P1
    print S0
    print "\n"
    end

 dies with:

  parrot: src/hash.c:256: promote_hash_key: Assertion `key' failed.
  Abort (core dumped)

 Simon