diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss
index 336c201c..464eedc8 100644
--- a/collects/mred/private/path-dialog.ss
+++ b/collects/mred/private/path-dialog.ss
@@ -40,7 +40,8 @@
         (apply simplify-path (regexp-replace*
                               #rx"/" (if (path? p) (path->string p) p) "\\\\")
                more))
-      (compose simplify-path expand-path*)))
+      (lambda (p . more)
+        (apply simplify-path (expand-path* p) more))))
 
   (define directory-exists*? (compose directory-exists? expand-path*))
   (define file-exists*?      (compose file-exists? expand-path*))