diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index 3fc832273..5e0deef1d 100644
--- a/src/Audit/Types.hs
+++ b/src/Audit/Types.hs
@@ -48,6 +48,10 @@ data Transaction
     , transactionUser   :: UserId
     , transactionCourseApplication :: CourseApplicationId
     }
+  | TransactionSubmissionCorrectorUpdated
+    { transactionSubmission :: SubmissionId
+    , transactionMbUser     :: Maybe UserId
+    }
   deriving (Eq, Ord, Read, Show, Generic, Typeable)
 
 deriveJSON defaultOptions
diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs
index 1d14a8d9f..1464734f1 100644
--- a/src/Handler/Submission.hs
+++ b/src/Handler/Submission.hs
@@ -622,6 +622,7 @@ postSubAssignR tid ssh csh shn cID = do
                   , SubmissionRatingAssigned =. (now <$ mbUserId)
                   ]
       addMessageI Success MsgCorrectorUpdated
+      audit $ TransactionSubmissionCorrectorUpdated sId mbUserId
     redirect actionUrl
   let corrForm = wrapForm' BtnSave corrForm' def
         { formAction = Just $ SomeRoute actionUrl