diff --git a/hy/contrib/anaphoric.hy b/hy/contrib/anaphoric.hy
index 13825b5..c9a0fef 100644
--- a/hy/contrib/anaphoric.hy
+++ b/hy/contrib/anaphoric.hy
@@ -25,7 +25,7 @@
 
 (defmacro ap-each [lst &rest body]
   "Evaluate the body form for each element in the list."
-  `(foreach [it ~list] ~@body))
+  `(foreach [it ~lst] ~@body))
 
 
 (defmacro ap-each-while [lst form &rest body]