SOLUTION

>I have seeded the tables to make sure something should occur, but nothing is found.
>I must have made a coder's invisible yet obvious error.
>
>

>USE Results IN 1
>USE Phrases IN 2
>SELECT Results
>FOR Recrd = 1 TO LastEntry
>	GOTO Recrd
>	RecordText = Results.SiteText
>	SELECT Phrases
>	ThePhrase = ALLTRIM(UPPER(WordUsed))
>	IF ALLTRIM(UPPER(ThePhrase)) $ ALLTRIM(UPPER(RecordText))
>		FOR PhraseRecord = 1 TO PhraseEnd
>			GOTO PhraseRecord
>* AT(cSearchExpression, cExpressionSearched [, nOccurrence])



>	PhrasePosition = AT(ThePhrase,RecordText,1) && CAUSE
                PhrasePosition = AT(UPPER(ALLTRIM(ThePhrase)),UPPER(ALLTRIM(RecordText)),1) && SOLUTION  ***





>* SUBSTR(cExpression, nStartPosition [, nCharactersReturned])
>			  PhrasePosition = PhrasePosition - 20
>			? PhrasePosition  (ALWAYS MINUS 20)   &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
>			ThePhrase = SUBSTR(RecordText,PhrasePosition,60)
>			? ThePhrase (ALWAYS BLANK - NO RESULT)  &&&&&&&&&&&&&&&&&&&&&&&&&&
>		NEXT PhraseRecord
>	ENDIF
>SELECT Results
>NEXT Recrd
>