Observed: the code has to have some particular conditions
repro:
- run
- try to close the form

* conditions 1
SET TALK ON
SET STATUS BAR OFF

WITH NEWOBJECT("fm_test")
	.SHOW
ENDWITH

DEFINE CLASS fm_test AS FORM 
	myRef		= .NULL.

	Autocenter	= .T.

	ADD OBJECT container1 AS container
	
	PROCEDURE container1.Init
          * conditions2
		thisform.myRef	     = thisForm
		= this.parent
	ENDPROC

ENDDEFINE

Where doesn't happen:

	PROCEDURE container1.Init
		thisform.myRef       = thisForm
                = thisForm
	ENDPROC

	PROCEDURE container1.Init
		= this.parent
		thisform.myRef	     = thisform

	ENDPROC

	PROCEDURE container1.Init
		thisform.myRef		 = thisform
		* PUT A BLOCK XXX/ENDXXX (IF/ENDIF,CASE/ENDCASE,WITH/ENDWITH....FOR/ENDFOR...)
		* AND THE BUG DOESN'T APPEAR
		IF .F.
		ENDIF
		= this.parent

	ENDPROC

	PROCEDURE container1.Init
		thisform.ADDPROPERTY("myRef",thisform)
		= this.parent
	ENDPROC