diff --git a/Commands/Stats.hs b/Commands/Stats.hs
index 9eef04aec..4c477b60c 100644
--- a/Commands/Stats.hs
+++ b/Commands/Stats.hs
@@ -16,7 +16,7 @@ import System.IO.UTF8
 stats :: [Opt] -> [String] -> Ledger -> IO ()
 stats opts args l = do
   today <- getCurrentDay
-  putStr $ showStats opts args l today
+  putStr $ showStats opts args (cacheLedger' l) today
 
 showStats :: [Opt] -> [String] -> Ledger -> Day -> String
 showStats _ _ l today =