diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss
index 336c201c72..464eedc840 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*))
diff --git a/collects/scheme/private/list.ss b/collects/scheme/private/list.ss
index b6b8b0aa8e..a5202a47f8 100644
--- a/collects/scheme/private/list.ss
+++ b/collects/scheme/private/list.ss
@@ -247,13 +247,9 @@
                  (lambda args (f (apply g args))))
              (if (eqv? 1 (procedure-arity g)) ; optimize: single input
                  (lambda (a)
-                   (call-with-values
-                    (lambda () (g a))
-                    f))
+                   (call-with-values (lambda () (g a)) f))
                  (lambda args
-                   (call-with-values
-                    (lambda () (apply g args))
-                    f)))))]
+                   (call-with-values (lambda () (apply g args)) f)))))]
       [(f . more)
        (if (procedure? f)
            (let ([m (apply compose more)])