diff --git a/lib/choose_repository.tcl b/lib/choose_repository.tcl
index 1bec8bd0a8..5f2d12fd07 100644
--- a/lib/choose_repository.tcl
+++ b/lib/choose_repository.tcl
@@ -123,6 +123,7 @@ constructor pick {} {
 		grab $top
 		focus $top
 	"
+	wm deiconify $top
 	tkwait variable @done
 
 	if {$top eq {.}} {