diff --git a/src/Utils/Schedule/Week.hs b/src/Utils/Schedule/Week.hs
index e4a879165..20fc77dda 100644
--- a/src/Utils/Schedule/Week.hs
+++ b/src/Utils/Schedule/Week.hs
@@ -122,7 +122,7 @@ weekSchedule uid dayOffset = do
     timeSlotsDefaultDisplay = Set.fromList $ timeSlot <$> [8,10..18]
 
     allTimeSlots :: [TimeSlot]
-    allTimeSlots = timeSlot <$> [0,2..24]
+    allTimeSlots = timeSlot <$> [0,2..22]
 
     timeSlotIsEmpty :: TimeSlot -> Bool
     timeSlotIsEmpty slot = foldr (\day acc -> acc && maybe True null (day Map.!? slot)) True events