ファイナライザが親クラスを辿って呼ばれない

[イグトランス (egtra)]

#console
Class Hoge
	Sub ~Hoge()
		Print "~Hoge()"
	End Sub
End Class

Class Foo
	Sub ~Foo()
		Print "~Foo()"
	End Sub
End Class

Dim o = Nothing As Object
o = New Foo
o = Nothing
System.GC.Collect()

Sleep(-1)

このプログラムの出力は次のようになることを期待した。

~Foo()
~Hoge()

しかし、実際にはこうだった。

~Foo()

誰か直しちゃってください。