#memory validate on
package require Thread

set t [thread::create]
puts thread=$t

thread::send $t {set x [socket localhost smtp]}
thread::send $t {puts $x line ; flush $x}	; # CRASH
