The follwing program runs now as expected:
.sub main @MAIN
.local pmc o, cl
newclass cl, "Foo"
subclass cl, cl, "Bar"
$I0 = typeof cl
o = new $I0
print o
$P0 = global "ok2"
store_global "Bar", "__get_string", $P0
print o
.end
.sub ok2
.return("ok 2\n")
.end
.namespace [ "Foo" ]
.sub __get_string
.return("ok 1\n")
.endleo
