diff --git a/hledger-lib/Hledger/Read/Timelog.hs b/hledger-lib/Hledger/Read/Timelog.hs
index 50f2b24c0..22634bb1e 100644
--- a/hledger-lib/Hledger/Read/Timelog.hs
+++ b/hledger-lib/Hledger/Read/Timelog.hs
@@ -93,7 +93,7 @@ timelogentry = do
   many1 spacenonewline
   datetime <- ledgerdatetime
   comment <- optionMaybe (many1 spacenonewline >> liftM2 (++) getParentAccount restofline)
-  return $ TimeLogEntry (read [code]) datetime (fromMaybe "" comment)
+  return $ TimeLogEntry (read [code]) datetime (maybe "" rstrip comment)
 
 tests_Timelog = TestList [
  ]