CLEAR
? "expected all .t."
ON ERROR TEST()
	=CREATEOBJECT("mClass")
TEST()
ERROR 1

DEFINE CLASS mClass AS Custom
	PROCEDURE Init
		ERROR 1

	PROCEDURE Error
	LPARAMETERS nError, cMethod, nLine
	? ASTACKINFO(AX)=PROGRAM(-1),PROGRAM()=UPPER(ax(ALEN(ax,1),3))
	TEST()
	
ENDDEFINE

PROCEDURE TEST
	? ASTACKINFO(AX)=PROGRAM(-1),PROGRAM()=UPPER(ax(ALEN(ax,1),3))