diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index da688ed22..1689f9b32 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@@ -332,7 +332,7 @@ ledgerTransaction = do
   md <- try ledgermetadata <|> return []
   postings <- ledgerpostings
   let t = txnTieKnot $ Transaction date edate status code description comment md postings ""
-  case Right t of -- balanceTransaction t of
+  case balanceTransaction t of
     Right t' -> return t'
     Left err -> fail err