It wasn't too hard. Find symbol also has the advantage of allowing you to select what gets searched in. With "context tagging" selected, find symbol finds ctl_search_for but push_tag doesn't.
_command void find_symbol_word_at_cursor() name_info(','VSARG2_REQUIRES_EDITORCTL|VSARG2_CMDLINE)
{
int xx;
_control ctl_search_for;
_str s = cur_word(xx);
int wid = activate_toolbar('_tbfind_symbol_form', 'ctl_search_for', true);
wid.ctl_search_for.p_text = s;
wid.ctl_search_for._set_sel(1,length(s)+1);
}
Graeme