修复编译错误。

不兼容新的 tcl 。
http://sourceforge.net/p/modules/bugs/62/