diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index c9e48beff..6e740d9f3 100644
--- a/src/Audit/Types.hs
+++ b/src/Audit/Types.hs
@@ -52,6 +52,9 @@ data Transaction
     { transactionSubmissions :: [SubmissionId]
     , transactionUser        :: UserId
     }
+  | TransactionSubmissionsCorrectionsDeleted
+    { transactionSubmissions :: [SubmissionId]
+    }
   | TransactionSubmissionCorrectorUpdated
     { transactionSubmission :: SubmissionId
     , transactionMbUser     :: Maybe UserId
diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 240aeb720..2d1cfddec 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -484,6 +484,7 @@ correctionsR whereClause displayColumns dbtFilterUI psValidator actions = do
                   -- , SubmissionRatingComment  =. Nothing -- Kept for easy reassignment by 2nd corrector
                   ]
         addMessageI Success $ MsgRemovedCorrections num
+        audit $ TransactionSubmissionsCorrectionsDeleted subs
       redirect currentRoute
     FormSuccess (CorrAutoSetCorrectorData shid, subs') -> do
       subs <- mapM decrypt $ Set.toList subs'