diff --git a/Yesod/Internal.hs b/Yesod/Internal.hs
--- a/Yesod/Internal.hs
+++ b/Yesod/Internal.hs
@@ -24,7 +24,6 @@
     , runUniqueList
     , toUnique
       -- * Names
-    , sessionName
     , tokenKey
     ) where
 
@@ -97,9 +96,6 @@
 
 tokenKey :: IsString a => a
 tokenKey = "_TOKEN"
-
-sessionName :: IsString a => a
-sessionName = "_SESSION"
 
 type CssBuilderUrl a = (a -> [(Text, Text)] -> Text) -> Builder
 
diff --git a/Yesod/Internal/Core.hs b/Yesod/Internal/Core.hs
--- a/Yesod/Internal/Core.hs
+++ b/Yesod/Internal/Core.hs
@@ -699,17 +699,18 @@
                      -> Int -- ^ Inactive session valitity in minutes
                      -> SessionBackend master
 clientSessionBackend key timeout = SessionBackend
-    { sbLoadSession = loadClientSession key timeout
+    { sbLoadSession = loadClientSession key timeout "_SESSION"
     }
 
 loadClientSession :: Yesod master
                   => CS.Key
-                  -> Int
+                  -> Int -- ^ timeout
+                  -> S8.ByteString -- ^ session name
                   -> master
                   -> W.Request
                   -> UTCTime
                   -> IO (BackendSession, SaveSession)
-loadClientSession key timeout master req now = return (sess, save)
+loadClientSession key timeout sessionName master req now = return (sess, save)
   where
     sess = fromMaybe [] $ do
       raw <- lookup "Cookie" $ W.requestHeaders req
diff --git a/yesod-core.cabal b/yesod-core.cabal
--- a/yesod-core.cabal
+++ b/yesod-core.cabal
@@ -1,5 +1,5 @@
 name:            yesod-core
-version:         1.0.0.1
+version:         1.0.0.2
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>