diff --git a/snaplet-sqlite-simple.cabal b/snaplet-sqlite-simple.cabal
--- a/snaplet-sqlite-simple.cabal
+++ b/snaplet-sqlite-simple.cabal
@@ -1,5 +1,5 @@
 name:           snaplet-sqlite-simple
-version:        0.4.4
+version:        0.4.5
 synopsis:       sqlite-simple snaplet for the Snap Framework
 description:    This snaplet provides support for using the SQLite
                 database with a Snap Framework application via the
@@ -56,7 +56,7 @@
     mtl                        >= 2       && < 3,
     sqlite-simple              >= 0.4.1   && < 1.0,
     direct-sqlite              >= 2.3.3   && < 2.4,
-    snap                       >= 0.10    && < 0.13,
+    snap                       >= 0.10    && < 0.14,
     text                       >= 0.11    && < 0.12,
     transformers               >= 0.2     && < 0.4,
     unordered-containers       >= 0.2     && < 0.3
diff --git a/test/Tests.hs b/test/Tests.hs
--- a/test/Tests.hs
+++ b/test/Tests.hs
@@ -118,7 +118,7 @@
     assertGoodUser :: Assertion
     assertGoodUser = do
       let hdl = with auth $ createUser "foo" "foo"
-      res <- evalHandler (ST.get "" M.empty) hdl appInit
+      res <- evalHandler Nothing (ST.get "" M.empty) hdl appInit
       either (assertFailure . show) checkUserFields res
 
     checkUserFields (Left _) =
@@ -145,7 +145,7 @@
     assertGoodUser :: Assertion
     assertGoodUser = do
       let loginHdl = with auth $ loginByUsername "foo" (ClearText "foo") True
-      res <- evalHandler (ST.get "" M.empty) loginHdl appInit
+      res <- evalHandler Nothing (ST.get "" M.empty) loginHdl appInit
       either (assertFailure . show) checkLoggedInUser res
 
     checkLoggedInUser (Left _) = assertBool "failed login" False
@@ -158,7 +158,7 @@
       let saveHdl = with auth $ saveUser (u { userLogin = "bar"
                                             , userRoles = roles
                                             , userMeta  = meta })
-      res <- evalHandler (ST.get "" M.empty) saveHdl appInit
+      res <- evalHandler Nothing (ST.get "" M.empty) saveHdl appInit
       either (assertFailure . show) checkUpdatedUser res
 
     roles = [Role $ BL.pack "Superman", Role $ BL.pack "Journalist"]
@@ -176,5 +176,5 @@
       assertEqual "account roles"  roles (userRoles u)
       assertEqual "account meta data" meta (userMeta u)
       let loginHdl = with auth $ loginByUsername "bar" (ClearText "foo") True
-      res <- evalHandler (ST.get "" M.empty) loginHdl appInit
+      res <- evalHandler Nothing (ST.get "" M.empty) loginHdl appInit
       either (assertFailure . show) (assertBool "login as 'bar' ok?" . isRight) res