Query

Hi,
            Can any one tell me why my tcl console hangs or say 
crashes when i try to use command  [gets stdin]. 
Sample code :
puts -nonewline "Enter your name: "
set bytesread [gets stdin name]
puts "My name is $name, and it is $bytesread bytes long"

This makes my console crash....any possible solution will be 
appreciated. thanks
sumanth