diff --git a/hy/contrib/anaphoric.hy b/hy/contrib/anaphoric.hy
index c9a0fef..d0a163a 100644
--- a/hy/contrib/anaphoric.hy
+++ b/hy/contrib/anaphoric.hy
@@ -50,7 +50,7 @@
   predicate function returns True."
   `(let [[f (lambda [it] ~rep)]]
      (foreach [it ~lst]
-       (if (~pred it)
+       (if (~predfn it)
          (yield (f it))
          (yield it)))))