findEnclosingWord
xt = findEnclosingWord(pVM, (CELL *)(pVM->ip));
FICL_WORD *pFW = findEnclosingWord(pVM, c.p);