diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 2b94879b..6ea376ef 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -3106,7 +3106,7 @@
 	     [(message parent directory filename extension) (sel message parent directory filename extension null)]
 	     [(message parent directory filename extension style)
 	      (if (not (eq? (system-type) 'unix))
-		  (wx:file-selector message directory filename extension "*.*" (if put? '(put) '(get)) parent)
+		  (wx:file-selector message directory filename extension "*.*" (if put? 'put 'get) parent)
 		  (letrec ([ok? #t]
 			   [typed-name #f]
 			   [dir (or directory (current-directory))]