diff --git a/hledger.hs b/hledger.hs
index 8a92e5b6b..349e86548 100644
--- a/hledger.hs
+++ b/hledger.hs
@@ -322,7 +322,7 @@ ledgerdate = do date <- many1 (digit <|> char '/'); many1 spacenonewline; return
 
 ledgerstatus = try (do { char '*'; many1 spacenonewline; return True } ) <|> return False
 
-ledgercode = try (do { char '('; code <- anyChar `manyTill` char ')'; return code } ) <|> return ""
+ledgercode = try (do { char '('; code <- anyChar `manyTill` char ')'; many1 spacenonewline; return code } ) <|> return ""
 
 ledgertransaction = do
   many1 spacenonewline