天野です。

添付のpatchで家の環境、PowerMac + OSX 10.5.4 +  
AquaTclTk-8.5.2では問題が出ないのを確認しました。

module TkCore; RUN_EVENTLOOP_ON_MAIN_THREAD = true; end
を使うことなく普通にソースをかけます。
有り難うございました。

Ryutaro Amano
wn9r-amn / asahi-net.or.jp