diff --git a/collects/racket/contract/private/guts.rkt b/collects/racket/contract/private/guts.rkt
index 0f1c03298c..88fa0fbd29 100644
--- a/collects/racket/contract/private/guts.rkt
+++ b/collects/racket/contract/private/guts.rkt
@@ -216,8 +216,7 @@
             [(null? projs) proj]
             [else (loop (cdr projs)
                         (let ([f (car projs)])
-                          (λ (v) (proj (f v)))))]))))))
-
+                          (λ (v) (f (proj v)))))]))))))
 
 (define-struct and/c (ctcs)
   #:omit-define-syntaxes
diff --git a/collects/tests/racket/contract-test.rktl b/collects/tests/racket/contract-test.rktl
index e9b8562027..d5860c6f4b 100644
--- a/collects/tests/racket/contract-test.rktl
+++ b/collects/tests/racket/contract-test.rktl
@@ -3220,8 +3220,8 @@
                  'pos
                  'neg)
        1)
-      x)
-   (reverse '(1 3 4 2)))
+      (reverse x))
+   '(3 1 2 4))
 
   
 ;