Правильные способы использования потоков в TCL

Question

Итак, у меня есть следующий код -

#!/usr/bin/env tclsh

package require Thread

thread::create {
    for {set i 0} {$i < 1000} {incr i} {
    puts "hello T1 $i"
    }
    thread::wait
}


thread::create {

    for {set j 0} {$j < 1000} {incr j} {
    puts "hello T2 $j"
    }
    thread::wait
}

Он работает, но первый поток выполняет больше итераций, чем число циклов (1000), а второй поток имеет гораздо меньше итераций, чем число циклов (1000). Может кто-нибудь указать, что не так с этим кодом? Большое спасибо за вашу помощь.