From 77630149a0dc583e4cf8e1f3146a92ff94f7e345 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 25 Feb 1999 04:38:20 +0000
Subject: [PATCH] ...

original commit: 6588b071c6137f402f4c87914fdbabc67ceb00cd
---
 collects/framework/finder.ss | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/collects/framework/finder.ss b/collects/framework/finder.ss
index 44442e24..5a49cc94 100644
--- a/collects/framework/finder.ss
+++ b/collects/framework/finder.ss
@@ -596,17 +596,16 @@
 	  [filter-msg "Bad name"]
 	  [parent-win (dialog-parent-parameter)])
        (make-object finder-dialog% 
-		    #f;parent-win   ; parent window
-		    #f           ; save-mode?
-		    #f           ; replace-ok?
-		    #f           ; multi-mode?
-		    result-box   ; boxed results
-		    directory    ; start-dir
-		    #f           ; start-name
-		    prompt       ; prompt
-		    filter       ; file-filter
-		    filter-msg   ; file-filter-msg
-		    ))))
+	 parent-win     ; parent window
+	 #f             ; save-mode?
+	 #f             ; replace-ok?
+	 #f             ; multi-mode?
+	 result-box     ; boxed results
+	 directory      ; start-dir
+	 #f             ; start-name
+	 prompt         ; prompt
+	 filter         ; file-filter
+	 filter-msg)))) ; file-filter-msg
   
   (define common-get-file-list
     (make-common