diff --git a/src/Handler/Sheet/Form.hs b/src/Handler/Sheet/Form.hs
index f36195169..15afa9566 100644
--- a/src/Handler/Sheet/Form.hs
+++ b/src/Handler/Sheet/Form.hs
@@ -139,7 +139,7 @@ makeSheetForm cId msId template = identifyForm FIDsheet . validateForm validateS
 
                        if | not schoolSheetAuthorshipStatementAllowOther
                             -> (pure SheetAuthorshipStatementModeEnabled, pure sfAuthorshipStatementExam', )
-                               <$> fmap sequenceA (fmap (fmap $ fmap authorshipStatementDefinitionContent) . traverse forcedContentField $ entityVal <$> mSchoolAuthorshipStatement)
+                               <$> (fmap (traverse $ fmap authorshipStatementDefinitionContent) . traverse forcedContentField $ entityVal <$> mSchoolAuthorshipStatement)
                           | otherwise -> do
                               examOpts <-
                                 let examFieldQuery = E.from $ \exam -> do