diff --git a/hledger.hs b/hledger.hs
index ad884eca6..0c549911e 100644
--- a/hledger.hs
+++ b/hledger.hs
@@ -70,7 +70,7 @@ parseLedgerAndDo :: [Opt] -> [String] -> ([Opt] -> [String] -> Ledger -> IO ())
 parseLedgerAndDo opts args cmd = 
     ledgerFilePathFromOpts opts >>= parseLedgerFile >>= either printParseError runcmd
     where
-      runcmd = cmd opts args . cacheLedger apats . canonicaliseAmounts . filterRawLedger b e dpats c r
+      runcmd = cmd opts args . cacheLedger apats . filterRawLedger b e dpats c r . canonicaliseAmounts
       b = beginDateFromOpts opts
       e = endDateFromOpts opts
       (apats,dpats) = parseAccountDescriptionArgs args