diff --git a/collects/mred/finder.ss b/collects/mred/finder.ss
index d9d6618e..4a63477a 100644
--- a/collects/mred/finder.ss
+++ b/collects/mred/finder.ss
@@ -47,7 +47,7 @@
 	
 	(private
 	  [WIDTH 500]
-	  [HEIGHT 500]
+	  [HEIGHT 400]
 	  
 	  dirs current-dir
 	  last-selected
@@ -359,6 +359,8 @@
 	    [last-directory (set-directory last-directory)]
 	    [else (set-directory (current-directory))])
 	  
+	  (send ok-button user-min-width (send cancel-button get-width))
+
 	  (center wx:const-both)
 	  
 	  (show #t))))