>can you post your code? It doesn't make sense that you would be getting that.

Something like this:

lcBuffer = SPACE(bytestotal)
This.Object.GetData(@lcBuffer, , bytestotal)
IF AT(CHR(13), lcBuffer) = 0 
    .pcLastReading = .pcLastReading + lcBuffer
ELSE
    lcMsgStr = .pcLastReading + lcBuffer
    .pcLastReading = ''	
    lnMsgs = OCCURS(CHR(13), lcBuffer)
    FOR i = 1 TO lnMsgs
	lnAtEot = AT(CHR(13), lcMsgStr)
	lcThisMsg = LEFT(lcMsgStr, lnAtEot - 1)
	lcMsgStr = SUBSTR(lcMsgStr, lnAtEot + LEN(CHR(13)))
	.mOnComm(This.Object, lcThisMsg)
    NEXT i
ENDIF	

I am checking lcThisMsg inside of mOnComm and there are duplicated scans there sometimes.