diff --git a/src/Handler/ExamOffice/Exams.hs b/src/Handler/ExamOffice/Exams.hs
index abdf5e4a9..366f226d6 100644
--- a/src/Handler/ExamOffice/Exams.hs
+++ b/src/Handler/ExamOffice/Exams.hs
@@ -417,7 +417,9 @@ postEOExamsR = do
       addMessageI Success $ MsgExamLabelsSet (Set.size exams)
       redirect $ ExamOfficeR EOExamsR
     ExamRemoveLabelData -> do
-      runDB . forM_ (Set.toList exams) $ either delete delete
+      runDB . forM_ (Set.toList exams) $ either
+        (\eeId -> E.delete . E.from $ \extExLabel -> E.where_ (extExLabel E.^. ExamOfficeExternalExamLabelExternalExam E.==. E.val eeId))
+        (\eId  -> E.delete . E.from $ \exLabel -> E.where_ (exLabel E.^. ExamOfficeExamLabelExam E.==. E.val eId))
       addMessageI Success $ MsgExamLabelsRemoved (Set.size exams)
       redirect $ ExamOfficeR EOExamsR