From 49a6e83decac5eb32afe566bfa2f605b9fa138d7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 11 Dec 2001 04:56:26 +0000
Subject: [PATCH] .

original commit: 392356b28451d7c8a52663b30dca42f9712a7d9e
---
 collects/mred/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index b679c4ac..26941a3e 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5248,7 +5248,7 @@
                               '(border))]
 		 [update-ok (lambda () (send ok-button enable (not (null? (send (if dir? dirs files) get-selections)))))]
 		 [select-this-dir (and dir?
-                                (make-object button% "<- Select" dir-pane
+                                (make-object button% "<- &Select" dir-pane
                                   (lambda (b e)
                                     (send f show #f)
                                     (done))))]