diff --git a/collects/mred/private/filedialog.ss b/collects/mred/private/filedialog.ss
index 93e176f937..995da31bd6 100644
--- a/collects/mred/private/filedialog.ss
+++ b/collects/mred/private/filedialog.ss
@@ -50,6 +50,7 @@
                 [put?      put?]
                 [dir?      dir?]
                 [multi?    multi?]
+                [existing? (not put?)]
                 [message   message]
                 [parent    parent]
                 [directory directory]
diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss
index 15cf581c46..850cd6ae9b 100644
--- a/collects/mred/private/path-dialog.ss
+++ b/collects/mred/private/path-dialog.ss
@@ -205,7 +205,9 @@
               (when m
                 (send edit change-style path-up-delta (caadr m) (cdadr m))
                 (send edit set-clickback (caar m) (cdar m)
-                      (lambda _ (enter-text (substring dir 0 (cdar m)))))
+                      (lambda _
+                        (enter-text (substring dir 0 (cdar m)))
+                        (do-enter)))
                 (loop (cdar m)))))
           (send dir-text lock))
         (if (directory-exists? dir)