#memory validate on
package require Thread

set s [socket localhost smtp]
puts sock=$s

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

thread::transfer $t $s

thread::send  $t "puts $s line ; flush $s"	; # CRASH
#thread::send  $t "puts $s line"		; # ok
#thread::send  $t "flush $s"			; # ok
