diff --git a/Data/Functor/Foldable.hs b/Data/Functor/Foldable.hs
--- a/Data/Functor/Foldable.hs
+++ b/Data/Functor/Foldable.hs
@@ -421,4 +421,4 @@
   -> (Base t (EnvT b (Stream (Base t)) a) -> a)
   -> t
   -> a
-zygoHistoPrepro f = gprepro (distZygoT f distHisto)
+zygoHistoPrepro f g t = gprepro (distZygoT f distHisto) g t
diff --git a/recursion-schemes.cabal b/recursion-schemes.cabal
--- a/recursion-schemes.cabal
+++ b/recursion-schemes.cabal
@@ -1,6 +1,6 @@
 name:          recursion-schemes
 category:      Control, Recursion
-version:       0.4.0.2
+version:       0.4.0.3
 license:       BSD3
 cabal-version: >= 1.6
 license-file:  LICENSE