由于Simple tcl脚本，windows7中的BSOD

Question

我使用的是Windows7 64位和TCL8.4。我有一个简单的脚本如下：

package require Expect;
spawn ping 192.168.25.23 -n 15;
#NOTE: output of the ping is "request timed out" for my testing purpose.;
set id $spawn_id;
expect -i $id "Ping statistics *";

此脚本显示蓝屏死机错误。

我在另一台有windowsXP的机器上运行相同的脚本。在这里我没有发现任何这样的问题。

供参考：

“ping”中的默认超时为4秒，“Expect”的默认超时为10秒。

任何帮助都会很明显。