Многопоточность в Tcl скрипте

Question

Я начал играть с потоком в Tcl и столкнулся с основной проблемой. Я начал с простого примера из текстового поля, который, похоже, не работает.

package require Thread
for {set thread 1} {$thread <= 3} {incr thread} {
    set id [::thread::create {
        for {set i 1} {$i <= 3} {incr i} {
            after [expr {int(500*rand()) }]
            puts "Thread [::thread::id] says hello"
        }
    }]
    puts "Started thread $id"
}

puts "Exiting threads [::thread::names]"
while {[llength [::thread::names]] > 1} {after 500}
puts "The end"

puts во внутреннем цикле не выполняется. Что мне не хватает?