diff --git a/collects/setup/plt-installer-unit.ss b/collects/setup/plt-installer-unit.ss
index aa7b229735..2d87a8de5a 100644
--- a/collects/setup/plt-installer-unit.ss
+++ b/collects/setup/plt-installer-unit.ss
@@ -74,12 +74,13 @@
                         (custodian-shutdown-all installer-cust))]
                      [installer-cust (make-custodian)])
               (send done enable #f)
+              (send canvas allow-tab-exit #t)
               ((current-text-keymap-initializer) (send text get-keymap))
               (send text lock #t)
-              
+
               ;; still do this even tho we aren't in the eventspace main thread
               (thread (lambda () (send dlg show #t)))
-              
+
               (parameterize ([current-custodian installer-cust])
                 (parameterize ([current-eventspace (make-eventspace)])
                   (queue-callback