diff --git a/System/FilePath/Find.hs b/System/FilePath/Find.hs
index 4779cd0..f2e5ed8 100644
--- a/System/FilePath/Find.hs
+++ b/System/FilePath/Find.hs
@@ -29,7 +29,7 @@
 -- Because 'FindClause' is a monad, you can use the usual monad
 -- machinery to, for example, lift pure functions into it.
 --
--- Here's a clause that will return 'False' for any file whose
+-- Here's a clause that will return 'True' for any file whose
 -- directory name contains the word @\"temp\"@.
 --
 -- @
diff --git a/examples/Simple.hs b/examples/Simple.hs
index b49fc9c..850571f 100644
--- a/examples/Simple.hs
+++ b/examples/Simple.hs
@@ -33,7 +33,7 @@ renameCppToC path = find always (extension ==? ".cpp") path >>=
 
 noRCS :: RecursionPredicate
 
-noRCS = (`elem` ["_darcs","SCCS","CVS",".svn",".hg",".git"]) `liftM` fileName
+noRCS = (`notElem` ["_darcs","SCCS","CVS",".svn",".hg",".git"]) `liftM` fileName
 
 cSources :: FilePath -> IO [FilePath]