From bb608985ea50b260d15b172320f6154ea09d1335 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 19 Dec 2001 15:22:18 +0000
Subject: [PATCH] .

original commit: 602d8368812d2ea936902810346f25f84c903d78
---
 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 26941a3e..054cb323 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5162,7 +5162,7 @@
 	(letrec ([ok? #f]
 		 [typed-name #f]
 		 [dir (or directory last-visted-directory (current-directory))]
-		 [f (make-object dialog% (if put? "Save" "Open") parent 500 300)]
+		 [f (make-object dialog% (if dir? "Select Directory" (if put? "Save" "Open")) parent 500 300)]
 		 [__ (when message
 		       (let ([p (make-object vertical-pane% f)])
 			 (send p stretchable-height #f)