diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index 71baca5c8d..d8b0239369 100644
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@@ -3161,15 +3161,17 @@ module browser threading seems wrong.
                                  (car percentages))))
             (inner (void) after-percentage-change))
           (super-new)))
-      
+
       (define drs-name-message%
         (class name-message%
           (define/override (on-choose-directory dir)
-            (let ([file (finder:get-file dir)])
+            (let ([file (parameterize ([finder:dialog-parent-parameter
+                                        (send this get-top-level-window)])
+                          (finder:get-file dir))])
               (when file
                 (handler:edit-file file))))
           (super-new)))
-      
+
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       ;;
       ;; lambda-snipclass is for backwards compatibility
diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.ss
index 8a08aa0bae..b876f44691 100644
--- a/collects/framework/private/handler.ss
+++ b/collects/framework/private/handler.ss
@@ -380,7 +380,7 @@
 
       (define open-file
 	(λ ()
-	  (let* ([parent (and (preferences:get 'framework:open-here?)
+	  (let* ([parent (and ; (preferences:get 'framework:open-here?)
                               (get-top-level-focus-window))]
                  [file 
                   (parameterize ([finder:dialog-parent-parameter parent])
diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index 77bc2420f0..33faf96dd3 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -1232,7 +1232,7 @@
 		(λ (this-edit event)
                   (let ([edit (get-outer-editor this-edit)])
                     (parameterize ([finder:dialog-parent-parameter 
-                                    (and (is-a? edit editor:basic<%>)
+                                    (and ; (is-a? edit editor:basic<%>)
                                          (send edit get-top-level-window))])
                       (let ([file (finder:put-file)])
                         (when file