PUBLIC ooo ooo = CREATEOBJECT("Class1") ooo.IdentifyExceptions() RETURN *------------------------------------------------------- DEFINE CLASS Class1 AS Custom * Define properties etc. ADD OBJECT PunchExceptions AS Collection * --------------------------------------------------- PROCEDURE IdentifyExceptions * --------------------------------------------------- LOCAL clsPunchException AS lppPunchException IF .T. clsPunchException = CREATEOBJECT("lppPunchException") WITH clsPunchException .Code = "CodeValue" .Description = "DescriptionValue" .Reason = "ReasonValue" .Type = 0 ENDWITH * <<< This is where the error occurs. >>> This.PunchExceptions.Add(clsPunchException) ENDIF * Cleanup code omitted. ENDPROC ENDDEFINE *------------------------------------------------------- DEFINE CLASS lppPunchException AS Custom *------------------------------------------------------- #DEFINE mconZeroLengthString "" * Define properties and set default values * ---------------------------------------------- Code = mconZeroLengthString Description = mconZeroLengthString Reason = mconZeroLengthString Type = 0 ENDDEFINE>I'm running into a strange problem that's got me stumped. I have a method in one class calling the .Add method of a collection and I'm getting the following error.