diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.ss
index 8a08aa0b..b876f446 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 77bc2420..33faf96d 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