diff --git a/test.scm b/test.scm
index 5badd1d..5ab652c 100644
--- a/test.scm
+++ b/test.scm
@@ -82,8 +82,8 @@
 
 (define-test-suite "alambda"
   (define-test "map"
-    (assert-equal '(2 3 4)
-                  (map (alambda (_ v) (1+ v)) '((a . 1) (b . 2) (c . 3))))))
+    (assert-equal '(4 4 4)
+                  (map (alambda (i v) (+ i v)) '((3 . 1) (2 . 2) (1 . 3))))))
 
 (define-test-suite "generator"
   (define-test "test"