diff --git a/collects/mred/finder.ss b/collects/mred/finder.ss
index e085d292..d129f306 100644
--- a/collects/mred/finder.ss
+++ b/collects/mred/finder.ss
@@ -439,12 +439,14 @@
 						 'common
 						 'std))
     (define put-file
-      (lambda ()
-	((case (mred:preferences:get-preference 'mred:file-dialogs)
-	   [(std) std-put-file]
-	   [(common) common-put-file]))))
+      (lambda args
+	(apply (case (mred:preferences:get-preference 'mred:file-dialogs)
+		 [(std) std-put-file]
+		 [(common) common-put-file])
+	       args)))
     (define get-file
-      (lambda ()
-	((case (mred:preferences:get-preference 'mred:file-dialogs)
-	   [(std) std-get-file]
-	   [(common) common-get-file]))))))
+      (lambda args
+	(apply (case (mred:preferences:get-preference 'mred:file-dialogs)
+		 [(std) std-get-file]
+		 [(common) common-get-file])
+	       args)))))