Hugo,
I followed your tip, and I surrounded the section of code that calls ResetToDefault with an If empty() and that took care of it.

The FOXOBJECT clause made it quicker.

thanks,

Procedure ProcessSrchField
	Lparameters oCtrl

	Strtofile(oCtrl.Class + [:] + oCtrl.Name+Chr(13)+Chr(10),[c:\crap\mylog.txt],1)
	Local cSrc, cAlias, cTag
	cSrc = oCtrl.ControlSource

	cAlias = Getwordnum(cSrc,1,[.])
	cTag = Getwordnum(cSrc,2,[.])
	oCtrl.icsrchAlias = cAlias
	oCtrl.icsrchTag = cTag
	cSrc = oCtrl.ReadMethod([GotFocus])
	If !Empty(cSrc)
		oCtrl.ResetToDefault([GotFocus])
	Endif
Endproc

>Jim,
>
>Try adding the FOXOBJECT clause to the FOR EACHs to see if that makes a difference