>Fabio,
>
>Not a bug. Since the class is defined with one member element, that element can't be fully removed at runtime.
>

Before writing you should verify!

CLEAR
=NEWOBJECT("pageframe1")

DEFINE CLASS pageframe1 AS PageFrame
	Pagecount = 1

	PROCEDURE Init
		? "Pagecount is",this.Pagecount
		? "Now remove the page1",this.RemoveObject("Page1")
		? "Pagecount is",this.Pagecount
		? "this.Page1 is a ",this.Page1
		? "AMEMBER(PAGE1) = #",AMEMBERS(AMM,this.Page1)
		? this.Page1.Name
ENDDEFINE