ON ERROR 
=CREATEOBJECT("mClass")

DEFINE CLASS mClass AS Custom
	PROCEDURE Init
		='a'+1
		
	PROCEDURE Error
	LPARAMETERS nError, cMethod, nLine
	? "expected 0",ERROR()
	
ENDDEFINE