I am reporting this bug here for confirmation before posting in the VFP Bug list.

Problem: Form will not release when the debugger is open.

System: Win 2k SP4 with VFP8 SP1

Repro Code:

ACTIVATE WINDOW debug
PUBLIC loForm
loForm = CREATEOBJECT('_Form')
loForm.Show()

DEFINE CLASS _form AS form

	top = 0
	left = 0
	height = 300
	width = 300
	
	ADD OBJECT cmdClose AS _commandbutton WITH ;
		top = 100, ;
		left = 100, ;
		height = 27, ;
		width = 120, ;
		caption = [Click Me to Test]

	PROCEDURE QueryUnload
		*!* some clean up code here
		IF NOT THIS._PreQueryUnloadHook()
			RETURN .f.
		ENDIF
		THIS.Release()
	ENDPROC
	PROCEDURE _PreQueryUnloadHook
		RETURN .t.
	ENDPROC
ENDDEFINE
DEFINE CLASS _commandbutton AS CommandButton

	PROCEDURE Click
		THIS.OnClick()
	ENDPROC
	PROCEDURE OnClick
		THISFORM.QueryUnload()
	ENDPROC

ENDDEFINE