slang.tcl: deal with word from an inexact match in word regex