diff --git a/src/Handler/ExamOffice/Exams.hs b/src/Handler/ExamOffice/Exams.hs
index c6d72d734..c05859ef5 100644
--- a/src/Handler/ExamOffice/Exams.hs
+++ b/src/Handler/ExamOffice/Exams.hs
@@ -89,7 +89,10 @@ getEOExamsR = do
     Just "no"  -> False
     _          -> userExamOfficeGetSynced
 
-  -- TODO: lookup GET param and user setting for getLabels
+  getLabels <- lookupGetParam "labels" >>= return . \case
+    Just "yes" -> True
+    Just "no"  -> False
+    _          -> userExamOfficeGetLabels
 
   examsTable <- runDB $ do
     let