From 9c44a4c92efdb59a92ff27d4afc564df9da45fc6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 3 Aug 1999 20:10:23 +0000
Subject: [PATCH] .

original commit: 3b1f014d831d18f469b248fbd482d8c6742a0993
---
 src/mred/wrap/mred.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index fb23e030..0c547609 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -4608,7 +4608,8 @@
 				    (wx:begin-busy-cursor)
 				    (send m set-label (if (directory-exists? dir)
 							  (begin
-							    (set! last-visted-directory dir)
+							    (unless directory
+							      (set! last-visted-directory dir))
 							    dir)
 							  (string-append "BAD DIRECTORY: " dir)))
 				    (send dir-text set-value dir)