No offense, but way too much code for a simple job. Mike Yearwood showed you one solution, I prefer this variant

select targettable
set order to targettag in sourcetable
SET RELATION TO sourceexpression into sourcetable
REPLACE all field1 with sourcetable.field1 for !eof('sourcetable')

>I ended up doing this which works fine, but I really would have like to use the UPDATE. Some day...
>
>

>
>SELECT iAccts
>SCAN
>	SELECT crsFundAcctDisc
>	LOCATE FOR crsFundAcctDisc.Acct_ID == iAccts.Acct_ID
>	DO WHILE .T.
>		IF FOUND()
>			REPLACE iAccts.FootNote WITH ALLTRIM(iAccts.FootNote) + '('+ ALLTRIM(STR(crsFundAcctDisc.FootNote))+')'
>			CONTINUE
>		ELSE
>			EXIT
>		ENDIF
>	ENDDO
>	SELECT iAccts
>ENDSCAN
>
>