From e0740a888e1688440508646f98ae7fa9e5e720d0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 17 Aug 2004 15:20:32 +0000
Subject: [PATCH] .

original commit: 6124cc9502a63d48aefe86330bed5ef1383d14a9
---
 collects/mred/mred.ss | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index dc5089f7..e92faeb9 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -2586,7 +2586,7 @@
 		  ((void) after-move-to s x y ?)
 		  (#t can-resize? s x y)
 		  ((void) on-resize s x y)
-		  ((void) after-resize s x y)
+		  ((void) after-resize s x y ?)
 		  (#t can-reorder? s s2 ?)
 		  ((void) on-reorder s s2 ?)
 		  ((void) after-reorder s s2 ?)
@@ -6588,8 +6588,9 @@
 		 [m (make-object message% (protect& (path->string dir)) dir-pane)]
                  [lp (make-object horizontal-pane% f)]
                  [change-dir (lambda (d) (let ([sd (send d get-string-selection)])
-                                           (set! dir (simplify-path (build-path dir sd)))
-                                           (reset-directory)))]
+					   (when sd
+					     (set! dir (simplify-path (build-path dir sd)))
+					     (reset-directory))))]
 		 [dirs (make-object (class list-box%
                                       (define/override (on-subwindow-char w e)
                                         (cond