diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -3,6 +3,10 @@
 ## master
 
 
+## v0.1.3.2
+
+* Support breaking changes in `hledger-lib` v1.41.
+
 
 ## v0.1.3.1
 
diff --git a/hledger-stockquotes.cabal b/hledger-stockquotes.cabal
--- a/hledger-stockquotes.cabal
+++ b/hledger-stockquotes.cabal
@@ -1,11 +1,11 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.36.0.
+-- This file has been generated from package.yaml by hpack version 0.37.0.
 --
 -- see: https://github.com/sol/hpack
 
 name:           hledger-stockquotes
-version:        0.1.3.1
+version:        0.1.3.2
 synopsis:       Generate HLedger Price Directives From Daily Stock Quotes.
 description:    @hledger-stockquotes@ is an addon for <https://hledger.org/ hledger> that
                 reads your journal file, pulls the historical stock prices for commodities,
@@ -40,6 +40,7 @@
 library
   exposed-modules:
       Hledger.StockQuotes
+      Hledger.StockQuotes.Compat
       Web.AlphaVantage
   other-modules:
       Paths_hledger_stockquotes
diff --git a/src/Hledger/StockQuotes.hs b/src/Hledger/StockQuotes.hs
--- a/src/Hledger/StockQuotes.hs
+++ b/src/Hledger/StockQuotes.hs
@@ -47,6 +47,7 @@
     , stderr
     )
 
+import Hledger.StockQuotes.Compat (allJournalCommodities)
 import Web.AlphaVantage
     ( AlphaVantageResponse (..)
     , Config
@@ -76,10 +77,7 @@
                 definputopts
                 journalPath
     currentTime <- getCurrentTime
-    let commodities =
-            filter (`notElem` excluded) $
-                M.keys (jcommodities journal)
-                    <> M.keys (jinferredcommodities journal)
+    let commodities = filter (`notElem` excluded) $ allJournalCommodities journal
         dates = map tdate $ jtxns journal
         currentYear = (\(y, _, _) -> y) $ toGregorian $ utctDay currentTime
         minDate = case minimumMay dates of
diff --git a/src/Hledger/StockQuotes/Compat.hs b/src/Hledger/StockQuotes/Compat.hs
new file mode 100644
--- /dev/null
+++ b/src/Hledger/StockQuotes/Compat.hs
@@ -0,0 +1,21 @@
+{-# LANGUAGE CPP #-}
+-- | Hledger-related functions that use CPP macros for multiple
+module Hledger.StockQuotes.Compat
+    ( allJournalCommodities
+    ) where
+
+import Hledger (CommoditySymbol, Journal (..))
+
+import qualified Data.Map.Strict as M
+
+-- | Get all declared & inferred commodities of a Journal.
+allJournalCommodities :: Journal -> [CommoditySymbol]
+allJournalCommodities journal =
+-- TODO: remove < 1.41 support after we drop GHC 9.8
+#if MIN_VERSION_hledger_lib(1, 41, 0)
+    M.keys (jdeclaredcommodities journal)
+        <> M.keys (jinferredcommoditystyles journal)
+#else
+    M.keys (jcommodities journal)
+        <> M.keys (jinferredcommodities journal)
+#endif