diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index 0765f572c..22d636fb1 100644
--- a/src/Audit/Types.hs
+++ b/src/Audit/Types.hs
@@ -48,7 +48,7 @@ data Transaction
     , transactionUser   :: UserId
     , transactionCourseApplication :: CourseApplicationId
     }
-  | TransactionSubmissionEdit
+  | TransactionSubmissionUser
     { transactionSubmission :: SubmissionId
     , transactionUser       :: UserId
     }
diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 72472302a..f185eef9e 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -948,7 +948,7 @@ postCorrectionsCreateR = do
                       { submissionUserUser = sheetUser
                       , submissionUserSubmission = subId
                       }
-                    audit $ TransactionSubmissionEdit subId uid
+                    audit $ TransactionSubmissionUser subId uid
                     when (null groups) $
                       addMessageI Warning $ MsgSheetNoRegisteredGroup sheetGroupDesc
                 | length groups < 2
@@ -965,7 +965,7 @@ postCorrectionsCreateR = do
                 { submissionUserUser = sheetPseudonymUser
                 , submissionUserSubmission = subId
                 }
-              audit $ TransactionSubmissionEdit subId uid
+              audit $ TransactionSubmissionUser subId uid
               when (length spGroup > 1) $
                 addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc
       when allDone $