fixed another bug
Update login.tcl

fixed a typo
Merged with master