diff --git a/src/Handler/School.hs b/src/Handler/School.hs
index 2cdaf0c33..e83a978cf 100644
--- a/src/Handler/School.hs
+++ b/src/Handler/School.hs
@@ -140,7 +140,7 @@ postSchoolEditR ssh = do
   formResult sfResult $ \SchoolForm{..} -> do
     runDB $ do
       let insertAuthorshipStatement = maybe (pure Nothing) $ fmap Just . insert . AuthorshipStatementDefinition
-      mSheetAuthorshipStatementId <- insertAuthorshipStatement sfSheetExamAuthorshipStatementDefinition
+      mSheetAuthorshipStatementId <- insertAuthorshipStatement sfSheetAuthorshipStatementDefinition
       mSheetExamAuthorshipStatementId <- insertAuthorshipStatement sfSheetExamAuthorshipStatementDefinition
       update ssh
         [ SchoolName =. sfName