diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index 4243f0319..4fdac17e3 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -191,6 +191,7 @@ blankline =
 
 commentline :: Parser String
 commentline = do
+  many spacenonewline
   char ';' <?> "comment line"
   l <- restofline
   return $ ";" ++ l