fix minor gui bug

svn: r1822
2006-01-13 10:29:48 +00:00 · 2006-01-13 10:29:48 +00:00 · 55da91c556
commit 55da91c556
parent 90ed37cdbc
1 changed files with 1 additions and 1 deletions
--- a/collects/handin-client/client-gui.ss
+++ b/collects/handin-client/client-gui.ss
@ -526,7 +526,7 @@
       (send old-user-box show #f)
       (send uninstall-box show #f)
       (let ([new? (equal? "" (remembered-user))])
-         (send (if new? new-user-box old-user-box) show #t)
+         (send single active-child (if new? new-user-box old-user-box))
         (send tabs set-selection (if new? 0 1)))
       (activate-new)
       (activate-change)