1 files changed, 1 insertions, 1 deletions

diff --git a/lib/Postdelay/TimeSpec.hs b/lib/Postdelay/TimeSpec.hs
index 21c48a4..951b1c0 100644
--- a/lib/Postdelay/TimeSpec.hs
+++ b/lib/Postdelay/TimeSpec.hs
@@ -153,7 +153,7 @@ dateSpec = label "Date" $ (>> scribe (prio' Default . time) midnight) <$> choice
                d <- dayNumber True
                return $ scribeDate y m d
            , try $ do
-               ds <- lookAhead $ length <$ (optional $ ($ ()) <$> sign) <*> some digitChar
+               ds <- lookAhead $ length <$ (optional $ ($ ()) <$> sign) <*> some digitChar <* lookAhead (spaces <|> eof)
                let yDs = ds - 2 {- month-} - 2 {- day -}
                when (yDs <= 0) $
                  fail "Too few digits to interpret as concatenated date"