diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 55f971ab..07634d4c 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1080,7 +1080,7 @@
                   (send edit begin-edit-sequence)
                   (let ([status (send edit load-file/gui-error
                                       filename
-                                      'same
+                                      'guess
                                       #f)])
                     (if status
                         (begin
diff --git a/collects/framework/private/group.ss b/collects/framework/private/group.ss
index b8032683..826173d9 100644
--- a/collects/framework/private/group.ss
+++ b/collects/framework/private/group.ss
@@ -138,14 +138,14 @@
           (define/public (set-open-here-frame fr) (set! open-here-frame fr))
           (define/public (get-open-here-frame)
 	    (cond
-	      [open-here-frame open-here-frame]
-	      [else
-	       (let ([candidates
-		      (filter (λ (x) (is-a? (frame-frame x) frame:open-here<%>))
-			      frames)])
-		 (if (null? candidates)
-		     #f
-		     (frame-frame (car candidates))))]))
+              [open-here-frame open-here-frame]
+              [else
+               (let ([candidates
+                      (filter (λ (x) (is-a? (frame-frame x) frame:open-here<%>))
+                              frames)])
+                 (if (null? candidates)
+                     #f
+                     (frame-frame (car candidates))))]))
           
           (public get-mdi-parent frame-label-changed for-each-frame
                   get-active-frame set-active-frame insert-frame
diff --git a/collects/framework/private/handler.ss b/collects/framework/private/handler.ss
index 0e4d1711..1d6cbdb5 100644
--- a/collects/framework/private/handler.ss
+++ b/collects/framework/private/handler.ss
@@ -380,12 +380,12 @@
 
       (define open-file
 	(λ ()
-	  (let ([file 
-		 (parameterize ([finder:dialog-parent-parameter
-				 (and (preferences:get 'framework:open-here?)
-                                      (get-top-level-focus-window))])
-		   (finder:get-file
-		    (send *open-directory* get)))])
+	  (let* ([parent (and (preferences:get 'framework:open-here?)
+                              (get-top-level-focus-window))]
+                 [file 
+                  (parameterize ([finder:dialog-parent-parameter parent])
+                    (finder:get-file
+                     (send *open-directory* get)))])
 	    (when file
 	      (send *open-directory*
 		    set-from-file! file))