diff --git a/almost-fix.cabal b/almost-fix.cabal
--- a/almost-fix.cabal
+++ b/almost-fix.cabal
@@ -1,5 +1,5 @@
 Name:                   almost-fix
-Version:                0.0.1
+Version:                0.0.2
 Author:                 Athan Clark <athan.clark@gmail.com>
 Maintainer:             Athan Clark <athan.clark@gmail.com>
 License:                BSD3
diff --git a/src/Data/Function/AlmostFix.hs b/src/Data/Function/AlmostFix.hs
--- a/src/Data/Function/AlmostFix.hs
+++ b/src/Data/Function/AlmostFix.hs
@@ -4,15 +4,10 @@
 
 
 -- | Applies the predicate to the input:
--- @almostFix (< 5) (+1) 0  =  @
+-- @almostFix (< 5) (+1) 0  =  4@
 almostFix :: (a -> Bool) -> (a -> a) -> a -> a
 almostFix p f x = if p x then almostFix p f (f x)
                          else x
-
--- | Applies the predicate to the result.
-almostFix' :: (a -> Bool) -> (a -> a) -> a -> a
-almostFix' p f x = if p (f x) then almostFix' p f (f x)
-                              else x
 
 -- | Use a monadic predicate for the control flow.
 almostFixM :: Monad m => m Bool -> (a -> m a) -> a -> m a