on mouseUp
put fld "maintext" into theText
set the itemDelimiter to "."
repeat with k = 1 to the number of items in theText
put item k of theText into theSentence
revspeak theSentence
wait until revIsSpeaking() is false --you need this
end repeat
set the itemDelimiter to ","
end mouseUp
Kurt