gui fix?

svn: r1838
2006-01-16 07:39:35 +00:00 · 2006-01-16 07:39:35 +00:00 · af997454e0
commit af997454e0
parent 48a8dac067
1 changed files with 1 additions and 0 deletions
--- a/collects/handin-client/client-gui.ss
+++ b/collects/handin-client/client-gui.ss
@ -526,6 +526,7 @@
       (send old-user-box show #f)
       (send uninstall-box show #f)
       (let ([new? (equal? "" (remembered-user))])
+         (send single active-child (if new? old-user-box new-user-box))
         (send single active-child (if new? new-user-box old-user-box))
         (send tabs set-selection (if new? 0 1)))
       (activate-new)