typeof ParrotClass

[Leopold Toetsch]

Should this really print "ParrotClass":
    newclass P0, "Foo"
    typeof S0, P0
    print S0
    print "\n"
    find_type I0, "Foo"
    new P1, I0
    typeof S0, P1
    print S0
    print "\n"
    end
ParrotClass
Foo
leo