From 604760b7be0fb3f3e587407476a3bc31c95bca7d Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 30 Mar 2001 04:36:11 +0000
Subject: [PATCH] ...

original commit: ead65c4904e2709f0774badc378e392c435dc48f
---
 collects/framework/private/finder.ss | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/collects/framework/private/finder.ss b/collects/framework/private/finder.ss
index a37dfb04..28460e37 100644
--- a/collects/framework/private/finder.ss
+++ b/collects/framework/private/finder.ss
@@ -70,7 +70,7 @@
 	  
 	  (inherit center show)
 	  
-	  (private
+	  (private-field
 	    [default-width 500]
 	    [default-height 400]
 	    dirs 
@@ -78,9 +78,7 @@
 	    last-selected)
 	  
 	  (private
-	    
 	    [set-directory ; sets directory in listbox 
-	     
 	     (lambda (dir) ; dir is normalized
 	       (when (directory-exists? dir)
 		 (gui-utils:show-busy-cursor