update login.tcl

fixed a bug