diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index 7607a9828..40ae64d3f 100644
--- a/src/Audit/Types.hs
+++ b/src/Audit/Types.hs
@@ -62,7 +62,6 @@ data Transaction
     , transactionSheet      :: SheetId
     }
 
-  -- TODO: audit work in progress
   | TransactionSubmissionUserEdit
     { transactionSubmission :: SubmissionId
     , transactionUser       :: UserId
diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 5f60de86e..cc63f18ae 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -924,10 +924,12 @@ postCorrectionsCreateR = do
             Arbitrary maxSize -> do
               subId <- insert submissionPrototype
               void . insert $ SubmissionEdit uid now subId
+              audit $ TransactionSubmissionEdit subId sid
               insertMany_ . flip map spGroup $ \SheetPseudonym{sheetPseudonymUser} -> SubmissionUser
                 { submissionUserUser = sheetPseudonymUser
                 , submissionUserSubmission = subId
                 }
+              forM_ spGroup $ \SheetPseudonym{sheetPseudonymUser} -> audit $ TransactionSubmissionUserEdit subId sheetPseudonymUser
               when (genericLength spGroup > maxSize) $
                 addMessageI Warning $ MsgSheetGroupTooLarge sheetGroupDesc
             RegisteredGroups -> do
@@ -949,7 +951,7 @@ postCorrectionsCreateR = do
                       { submissionUserUser = sheetUser
                       , submissionUserSubmission = subId
                       }
-                    audit $ TransactionSubmissionUserEdit subId uid
+                    forM_ groupUsers $ audit . TransactionSubmissionUserEdit subId
                     when (null groups) $
                       addMessageI Warning $ MsgSheetNoRegisteredGroup sheetGroupDesc
                 | length groups < 2
@@ -962,11 +964,12 @@ postCorrectionsCreateR = do
             NoGroups -> do
               subId <- insert submissionPrototype
               void . insert $ SubmissionEdit uid now subId
+              audit $ TransactionSubmissionEdit subId sid
               insertMany_ . flip map spGroup $ \SheetPseudonym{sheetPseudonymUser} -> SubmissionUser
                 { submissionUserUser = sheetPseudonymUser
                 , submissionUserSubmission = subId
                 }
-              audit $ TransactionSubmissionUserEdit subId uid
+              forM_ spGroup $ \SheetPseudonym{sheetPseudonymUser} -> audit $ TransactionSubmissionUserEdit subId sheetPseudonymUser
               when (length spGroup > 1) $
                 addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc
       when allDone $