diff --git a/src/Handler/News.hs b/src/Handler/News.hs
index fa26931dd..0b655ba89 100644
--- a/src/Handler/News.hs
+++ b/src/Handler/News.hs
@@ -247,8 +247,8 @@ newsUpcomingExams uid = do
                           E.&&. earliestOccurrence E.<=. E.just (E.val fortnight)
                           -- E.&&. earliestOccurrence E.>=. E.just (E.val now)
             E.where_ $ regToWithinFortnight E.||. startExamFortnight E.||. startOccurFortnight E.||. startEarliest
-            let showRoom = showExamOccurrenceRoom (E.val uid) examOccurrence
-                     E.||. E.not_ (examOccurrence E.^. ExamOccurrenceRoomHidden)
+            let showRoom = showExamOccurrenceRoom (E.val uid) occurrence
+                     E.||. E.not_ (occurrence E.^. ExamOccurrenceRoomHidden)
             return (course, exam, register, occurrence, showRoom)
           dbtRowKey = queryExam >>> (E.^. ExamId)
           dbtProj = return