diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index ef9ca9fe3..08948dd86 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -289,7 +289,7 @@ ledgerHistoricalPrice :: GenParser Char LedgerFileCtx HistoricalPrice
 ledgerHistoricalPrice = do
   char 'P' <?> "historical price"
   many spacenonewline
-  date <- ledgerdate
+  date <- try (do {LocalTime d _ <- ledgerdatetime; return d}) <|> ledgerdate -- a time is ignored
   many1 spacenonewline
   symbol <- commoditysymbol
   many spacenonewline