diff --git a/models/schools.model b/models/schools.model
index b686b7964..93bab5eb7 100644
--- a/models/schools.model
+++ b/models/schools.model
@@ -10,7 +10,7 @@ School json
     examCloseMode ExamCloseMode default='separate'
     sheetAuthorshipStatementMode SchoolAuthorshipStatementMode default='optional'
     sheetAuthorshipStatementExamMode SchoolAuthorshipStatementMode default='optional'
-    sheetAuthorshipStatementText Text Maybe
+    sheetAuthorshipStatementText Html Maybe
     sheetAuthorshipStatementAllowOther Bool default=true
     UniqueSchool name
     UniqueSchoolShorthand shorthand -- required for Normalisation of CI Text
diff --git a/src/Handler/School.hs b/src/Handler/School.hs
index 38cc9bf18..f97d64097 100644
--- a/src/Handler/School.hs
+++ b/src/Handler/School.hs
@@ -70,7 +70,7 @@ data SchoolForm = SchoolForm
   , sfExamCloseMode :: ExamCloseMode
   , sfSheetAuthorshipStatementMode :: SchoolAuthorshipStatementMode
   , sfSheetAuthorshipStatementExamMode :: SchoolAuthorshipStatementMode
-  , sfSheetAuthorshipStatementText :: Maybe Text
+  , sfSheetAuthorshipStatementText :: Maybe StoredMarkup
   , sfSheetAuthorshipStatementAllowOther :: Bool
   }
 
@@ -88,7 +88,7 @@ mkSchoolForm mSsh template = renderAForm FormStandard $ SchoolForm
   <*  aformSection MsgSchoolAuthorshipStatementSection
   <*> apopt (selectField optionsFinite) (fslI MsgSchoolSheetAuthorshipStatementMode) (sfSheetAuthorshipStatementMode <$> template <|> pure SchoolAuthorshipStatementModeOptional)
   <*> apopt (selectField optionsFinite) (fslI MsgSchoolSheetAuthorshipStatementExamMode) (sfSheetAuthorshipStatementExamMode <$> template <|> pure SchoolAuthorshipStatementModeOptional)
-  <*> aopt (textField & cfStrip) (fslI MsgSchoolSheetAuthorshipStatementText & setTooltip MsgSchoolSheetAuthorshipStatementTextTip) (sfSheetAuthorshipStatementText <$> template)  -- TODO: use htmlField
+  <*> aopt htmlField (fslI MsgSchoolSheetAuthorshipStatementText & setTooltip MsgSchoolSheetAuthorshipStatementTextTip) (sfSheetAuthorshipStatementText <$> template)
   <*> apopt checkBoxField (fslI MsgSchoolSheetAuthorshipStatementAllowOther & setTooltip MsgSchoolSheetAuthorshipStatementAllowOtherTip) (sfSheetAuthorshipStatementAllowOther <$> template <|> pure True)
   where
     ldapOrgs :: HandlerFor UniWorX (OptionList (CI Text))
diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs
index e3a22a6c4..fe3480ff7 100644
--- a/test/Database/Fill.hs
+++ b/test/Database/Fill.hs
@@ -411,7 +411,7 @@ fillDb = do
         , termLectureEnd
         }
       void . insert_ $ TermActive (TermKey term) (toMidnight $ addDays (-60) termStart) (Just . beforeMidnight $ addDays 60 termEnd) Nothing
-  ifi <- insert' $ School "Institut für Informatik" "IfI" (Just $ 14 * nominalDay) (Just $ 10 * nominalDay) True (ExamModeDNF predDNFFalse) (ExamCloseOnFinished True) SchoolAuthorshipStatementModeOptional SchoolAuthorshipStatementModeRequired (Just "Erklärung über die eigenständige Bearbeitung\n\nHiermit erkläre ich, dass ich die vorliegende Abgabe vollständig selbstständig angefertigt habe, bzw. dass bei einer Gruppen-Abgabe nur die bei der Abgabe benannten Personen mitgewirkt haben.\n\nQuellen und Hilfsmittel über den Rahmen der Lehrveranstaltung hinaus sind als solche markiert und angegeben. Direkte Zitate sind als solche kenntlich gemacht.\n\nIch bin mir darüber im Klaren, dass Verstöße durch Plagiate oder Zusammenarbeit mit Dritten zum Ausschluss von der Veranstaltung führen.") False
+  ifi <- insert' $ School "Institut für Informatik" "IfI" (Just $ 14 * nominalDay) (Just $ 10 * nominalDay) True (ExamModeDNF predDNFFalse) (ExamCloseOnFinished True) SchoolAuthorshipStatementModeOptional SchoolAuthorshipStatementModeRequired (Just "<strong>Erklärung über die eigenständige Bearbeitung</strong><br><br>Hiermit erkläre ich, dass ich die vorliegende Abgabe vollständig selbstständig angefertigt habe, bzw. dass bei einer Gruppen-Abgabe nur die bei der Abgabe benannten Personen mitgewirkt haben.<br><br>Quellen und Hilfsmittel über den Rahmen der Lehrveranstaltung hinaus sind als solche markiert und angegeben. Direkte Zitate sind als solche kenntlich gemacht.<br><br>Ich bin mir darüber im Klaren, dass Verstöße durch Plagiate oder Zusammenarbeit mit Dritten zum Ausschluss von der Veranstaltung führen.") False
   mi  <- insert' $ School "Institut für Mathematik" "MI" Nothing Nothing False (ExamModeDNF predDNFFalse) (ExamCloseOnFinished False) SchoolAuthorshipStatementModeNone SchoolAuthorshipStatementModeOptional Nothing True
   void . insert' $ UserFunction gkleen ifi SchoolAdmin
   void . insert' $ UserFunction gkleen mi SchoolAdmin