diff --git a/src/Handler/Utils/Occurrences.hs b/src/Handler/Utils/Occurrences.hs
index af1c617c1..58057700b 100644
--- a/src/Handler/Utils/Occurrences.hs
+++ b/src/Handler/Utils/Occurrences.hs
@@ -21,7 +21,7 @@ occurrencesWidget (normalizeOccurrences -> Occurrences{..}) = do
       occurrencesExceptions' = flip map (Set.toList occurrencesExceptions) $ \case
         ExceptOccur{..} -> do
           exceptStart' <- formatTime SelFormatDateTime (LocalTime exceptDay exceptStart)
-          exceptEnd'   <- formatTime SelFormatTime     exceptStart
+          exceptEnd'   <- formatTime SelFormatTime     exceptEnd
           $(widgetFile "widgets/occurrence/cell/except-occur")
         ExceptNoOccur{..} -> do
           exceptTime' <- formatTime SelFormatDateTime exceptTime