diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs
index 5421f73b6..221975053 100644
--- a/hledger-web/Foundation.hs
+++ b/hledger-web/Foundation.hs
@@ -80,7 +80,9 @@ instance Yesod App where
     -- default session idle timeout is 120 minutes
     makeSessionBackend _ = do
         key <- getKey ".hledger-web_client_session_key.aes"
-        return . Just $ clientSessionBackend key 120
+        let timeout = fromIntegral (120 * 60 :: Int) -- 120 minutes
+        (getCachedDate, _closeDateCacher) <- clientSessionDateCacher timeout
+        return . Just $ clientSessionBackend2 key getCachedDate
 
     defaultLayout widget = do
         master <- getYesod