diff --git a/test/test-map.rkt b/test/test-map.rkt
index 2047a4b..d81c121 100644
--- a/test/test-map.rkt
+++ b/test/test-map.rkt
@@ -93,7 +93,7 @@
 
 ;; Test internal definitions inside the body
 (check-equal? (foldl (λ (x acc) (define y x) (cons (add1 y) acc)) '() '(1 2 3))
-              '(2 3 4))
+              '(4 3 2))
 
 ;; Does not work because the inferred type changes between the first and the
 ;; second iteration