fix find-curr-word