.

original commit: f708986b62bd985f20ff45308812acef37a6669c
2000-06-23 22:18:30 +00:00 · 2000-06-23 22:18:30 +00:00 · ddf061a34c
commit ddf061a34c
parent c969fceda2
1 changed files with 1 additions and 1 deletions
--- 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]