diff --git a/collects/mred/private/wx/gtk/filedialog.rkt b/collects/mred/private/wx/gtk/filedialog.rkt
index 535ae829..6423f7e9 100644
--- a/collects/mred/private/wx/gtk/filedialog.rkt
+++ b/collects/mred/private/wx/gtk/filedialog.rkt
@@ -72,7 +72,7 @@
   (define dlg (gtk_file_chooser_dialog_new 
                message (and parent (send parent get-gtk))
                (case type
-                 [(dir) 'select-directory]
+                 [(dir) 'select-folder]
                  [(put) 'save]
                  [else 'open])
                "gtk-cancel" 'cancel