diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs
index fbe7d4d81..0174f1ff3 100644
--- a/hledger-lib/Hledger/Data/Journal.hs
+++ b/hledger-lib/Hledger/Data/Journal.hs
@@ -939,7 +939,7 @@ journalInferCommodityStyles :: Journal -> Either String Journal
 journalInferCommodityStyles j =
   case
     commodityStylesFromAmounts $
-    dbg8 "journalInferCommmodityStyles using amounts" $
+    dbg8 "journalInferCommodityStyles using amounts" $
     journalAmounts j
   of
     Left e   -> Left e