# 
# patch "ui.ml"
#  from [993ceff439efadcd68bd16487fe25a9b60650b8f]
#    to [4d9b841fe24e698ecb885df064dd91e80a3c4320]
# 
--- ui.ml
+++ ui.ml
@@ -334,6 +334,7 @@
 	  ~title:"Open a Monotone database" () in
       dialog#add_button_stock `CLOSE `CLOSE ;
       dialog#add_select_button_stock `OPEN `OPEN ;
+      ignore (dialog#connect#close (fun () -> dialog#response `CLOSE)) ;
       dialog
     end in