diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs
index 34633609b..c5eab4c64 100644
--- a/src/Handler/Exam/Correct.hs
+++ b/src/Handler/Exam/Correct.hs
@@ -169,7 +169,7 @@ postECorrectR tid ssh csh examn = do
                 audit $ TransactionExamPartResultDeleted examPartId uid
                 return Nothing
               | Just partResult <- mPartResult -> let
-                  mOld = (examPartResultResult . entityVal) <$> mOldResult
+                  mOld = examPartResultResult . entityVal <$> mOldResult
                   mNew = ExamAttended <$> mPartResult
                   resultVal = _entityVal . _examPartResultResult
                 in if
diff --git a/test/Handler/HomeSpec.hs b/test/Handler/HomeSpec.hs
index 35eb111d1..8b77d1a6e 100644
--- a/test/Handler/HomeSpec.hs
+++ b/test/Handler/HomeSpec.hs
@@ -10,7 +10,7 @@ spec = withApp $ do
         it "loads the index and checks it looks right" $ do
           request $ do
             setMethod "GET"
-            setUrl HomeR
+            setUrl NewsR
             addRequestHeader ("Accept-Language", "de")
           statusIs 200
-          htmlAnyContain "h1" "Aktuelle Termine"
+          htmlAnyContain "h1" "Aktuelles"