From ddf061a34cbf8da348b39ddabcfac24a15a9a408 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 23 Jun 2000 22:18:30 +0000
Subject: [PATCH] .

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

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 14a614b4..07b4ed8a 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -4793,7 +4793,7 @@
 	(let ([s (wx:file-selector message directory filename extension "*.*"
 				   (if put? 'put (if multi? 'multi 'get))
 				   (mred->wx parent))])
-	  (if multi?
+	  (if (and multi? s)
 	      (files->list s)
 	      s))
 	(letrec ([ok? #f]