diff --git a/hledger-lib/Hledger/Data/Journal.hs b/hledger-lib/Hledger/Data/Journal.hs
index 2ba95ee4f..b0b62414c 100644
--- a/hledger-lib/Hledger/Data/Journal.hs
+++ b/hledger-lib/Hledger/Data/Journal.hs
@@ -74,6 +74,7 @@ module Hledger.Data.Journal (
   journalTagsUsed,
   journalTagsDeclaredOrUsed,
   journalCommoditiesDeclared,
+  journalCommoditiesUsed,
   journalCommodities,
   journalDateSpan,
   journalDateSpanBothDates,
@@ -406,6 +407,10 @@ showJournalAmountsDebug = show.map showMixedAmountOneLine.journalPostingAmounts
 journalCommoditiesDeclared :: Journal -> [CommoditySymbol]
 journalCommoditiesDeclared = M.keys . jdeclaredcommodities
 
+-- | Sorted unique commodity symbols used in this journal.
+journalCommoditiesUsed :: Journal -> [CommoditySymbol]
+journalCommoditiesUsed = S.elems . S.fromList . concatMap (map acommodity . amounts) . journalPostingAmounts
+
 -- | Sorted unique commodity symbols mentioned in this journal.
 journalCommodities :: Journal -> S.Set CommoditySymbol
 journalCommodities j =