Oh, and change .* to .+ to exclude the current word, i.e.:

completionCommand = 'perl -pe "s/^\t{4}($TM_CURRENT_WORD.+)\$|.*

\n?/$1/" <"$TM_FILEPATH"|sort|uniq';

That works great. Don't know what changed. thanks.