diff --git a/Options.hs b/Options.hs
index 675e88214..e2f51f0fa 100644
--- a/Options.hs
+++ b/Options.hs
@@ -36,6 +36,7 @@ getLedgerFilePath :: [Flag] -> IO String
 getLedgerFilePath opts = do
   defaultpath <- tildeExpand "~/ledger.dat"
   envordefault <- getEnv "LEDGER" `catch` \_ -> return defaultpath
+  path <- tildeExpand envordefault
   return $ last $ [envordefault] ++ (filter (/= "") (map getFile opts))
 
 -- ledger pattern args are a list of account patterns optionally followed