diff --git a/snap.cabal b/snap.cabal
--- a/snap.cabal
+++ b/snap.cabal
@@ -1,5 +1,5 @@
 name:           snap
-version:        0.10.0
+version:        0.10.0.1
 synopsis:       Top-level package for the Snap Web Framework
 description:
     This is the top-level package for the official Snap Framework libraries.
diff --git a/src/Snap/Snaplet.hs b/src/Snap/Snaplet.hs
--- a/src/Snap/Snaplet.hs
+++ b/src/Snap/Snaplet.hs
@@ -179,12 +179,10 @@
 -- a lens @quux :: SimpleLens Foo Quux@, then you could create a lens of type
 -- @SimpleLens App Quux@ by composition:
 --
--- > import Control.Category
--- > import Prelude hiding ((.))    -- you have to hide (.) from the Prelude
--- >                                -- to use Control.Category.(.)
+-- > import Control.Lens
 -- >
 -- > data Foo = Foo { _quux :: Quux }
--- > makeLenses [''Foo]
+-- > makeLenses ''Foo
 -- >
 -- > -- snapletValue is defined in the framework:
 -- > snapletValue :: SimpleLens (Snaplet a) a
@@ -285,6 +283,7 @@
 Snaplet) we want to use as well as any other state we might want.}
 
 > module MyApp where
+> import Control.Lens
 > import Snap.Snaplet
 > import Snap.Snaplet.Heist
 >
@@ -295,7 +294,7 @@
 >     , _companyName :: String
 >     }
 >
-> makeLenses [''App]
+> makeLenses ''App
 
 The next thing we need to do is define an initializer.
 
diff --git a/src/Snap/Snaplet/HeistNoClass.hs b/src/Snap/Snaplet/HeistNoClass.hs
--- a/src/Snap/Snaplet/HeistNoClass.hs
+++ b/src/Snap/Snaplet/HeistNoClass.hs
@@ -374,7 +374,7 @@
     p <- getSafePath
     -- Allows users to prefix template filenames with an underscore to prevent
     -- the template from being served.
-    if head p == '_' then pass else return $ B.pack p
+    if take 1 p == "_" then pass else return $ B.pack p
 
 
 ------------------------------------------------------------------------------