>>>You can avoid the macro substitution here:
>>
>>This is cool !!!
>>That getpem trick actually hands me back object reference :))
>>
>>BTW this was million years old code, dating way back to my
>>VFP exploration time. Never gave me any problem so I never
>>tought of /looked trough it again.
>>
>>Now since you came up with this cool trick (by Fabio) here comes
>>'ironed' version :)
>>
>>
>>

>>.
>>.
>>   procedure form_de
>>        lparameters oDataEnvironment
>>        local i,arr_obj(1),oDEO
>>        =amembers(arr_obj,oDataEnvironment,2)
>>        for i = 1 to alen(arr_obj)
>>            oDEO=getpem(oDataEnvironment, arr_obj(i))
>>            if oDEO.BaseClass = 'Cursor'
>>               oDEO.database = this.get_database(upper(justfname(oDEO.database)))
>>            endif
>>        endfor
>>
>>.
>>.
>>

>>
>
>This is better for me:
>
>

>
>   procedure form_de
>        lparameters oDataEnvironment
>        local i,arr_obj(1)
>        for i = 1 to amembers(arr_obj,oDataEnvironment,2)
>            WITH getpem(oDataEnvironment, arr_obj(m.i))
>             if .BaseClass == 'Cursor'
>                .database = this.get_database(upper(justfname(.database)))
>             endif
>           ENDWITH
>        endfor
>

Why ?
That is slicing hair (and I don't hv much left :) )

BTW,
*** Congrats to you for MVP award ***