diff --git a/collects/handin-client/client-gui.ss b/collects/handin-client/client-gui.ss
index 3100098fa5..1acd1290c0 100644
--- 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)