diff --git a/src/Utils/Schedule/Week.hs b/src/Utils/Schedule/Week.hs
index 9dddbf2dd..afa95b11d 100644
--- a/src/Utils/Schedule/Week.hs
+++ b/src/Utils/Schedule/Week.hs
@@ -139,11 +139,11 @@ weekSchedule uid _weekOffset = do
                                               && TimeOfDay slot 0 0 <= localTimeOfDay
                                               && localTimeOfDay < TimeOfDay (slot+slotStep) 0 0
       Left ScheduleEntryExamOccurrence{..} -> let slotUTCTime     = UTCTime
-                                                                    { utctDay     = utctDay seeoStart
+                                                                    { utctDay     = day
                                                                     , utctDayTime = timeOfDayToTime (TimeOfDay slot 0 0)
                                                                     }
                                                   nextSlotUTCTime = UTCTime
-                                                                    { utctDay     = utctDay seeoStart
+                                                                    { utctDay     = day
                                                                     , utctDayTime = timeOfDayToTime (TimeOfDay (slot+slotStep) 0 0)
                                                                     }
                                               in slotUTCTime <= seeoStart