I've committed a fix for this to cvs HEAD, changing
search/tcl/search-init.tcl search/tcl/search-procs.tcl
Please take these and try them and see if they fix this problem.
I think of the bug is resolved with your code.
Regards, Agustin