diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,7 @@
+# 1.3.5
+
+  - Fix suite build with hledger-lib 1.9.1
+
 # 1.3.4
 
   - Fix test suite build with hledger-lib 1.9
diff --git a/hledger-iadd.cabal b/hledger-iadd.cabal
--- a/hledger-iadd.cabal
+++ b/hledger-iadd.cabal
@@ -1,5 +1,5 @@
 name:                hledger-iadd
-version:             1.3.4
+version:             1.3.5
 synopsis:            A terminal UI as drop-in replacement for hledger add
 description:         This is a terminal UI as drop-in replacement for hledger add.
                      .
diff --git a/src/main/Main.hs b/src/main/Main.hs
--- a/src/main/Main.hs
+++ b/src/main/Main.hs
@@ -3,6 +3,7 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE OverloadedStrings, LambdaCase #-}
 {-# LANGUAGE PackageImports #-}
+{-# LANGUAGE CPP #-}
 
 module Main where
 
@@ -525,7 +526,11 @@
   let path = runIdentity $ optLedgerFile opts
   journalContents <- T.readFile path
 
+#if MIN_VERSION_hledger_lib(1,9,1)
+  runExceptT (HL.parseAndFinaliseJournal HL.journalp HL.definputopts path journalContents) >>= \case
+#else
   runExceptT (HL.parseAndFinaliseJournal HL.journalp True path journalContents) >>= \case
+#endif
     Left err -> hPutStrLn stderr err >> exitFailure
     Right journal -> do
       let edit = editorText EditorName (txt . T.concat) (Just 1) ""