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]