diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index cc63f18ae..f36f157d5 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -947,6 +947,7 @@ postCorrectionsCreateR = do
                   -> do
                     subId <- insert submissionPrototype
                     void . insert $ SubmissionEdit uid now subId
+                    audit $ TransactionSubmissionEdit subId sid
                     insertMany_ . flip map (Set.toList groupUsers) $ \sheetUser -> SubmissionUser
                       { submissionUserUser = sheetUser
                       , submissionUserSubmission = subId