diff --git a/src/Handler/Utils/Form/Occurences.hs b/src/Handler/Utils/Form/Occurences.hs
index d010c6a5e..f39ec3323 100644
--- a/src/Handler/Utils/Form/Occurences.hs
+++ b/src/Handler/Utils/Form/Occurences.hs
@@ -110,7 +110,7 @@ occurencesAForm (toPathPiece -> miIdent') mPrev = wFormToAForm $ do
         miCell' :: OccurenceException -> Widget
         miCell' ExceptOccur{..} = do
           exceptStart' <- formatTime SelFormatDateTime (LocalTime exceptDay exceptStart)
-          exceptEnd'   <- formatTime SelFormatTime     exceptStart
+          exceptEnd'   <- formatTime SelFormatTime     exceptEnd
           $(widgetFile "widgets/occurence/form/except-occur")
         miCell' ExceptNoOccur{..} = do
           exceptTime' <- formatTime SelFormatDateTime exceptTime