diff --git a/src/Handler/ExternalExam/Correct.hs b/src/Handler/ExternalExam/Correct.hs
index 401890fc9..a4472ea91 100644
--- a/src/Handler/ExternalExam/Correct.hs
+++ b/src/Handler/ExternalExam/Correct.hs
@@ -112,15 +112,16 @@ postEECorrectR tid ssh coursen examn = do
                 mOld = externalExamResultResult . entityVal <$> mOldResult
               in if
                 | ciqGrade' /= mOld -> do
+                  let resultTime = maybe now id externalExamDefaultTime  -- TODO add option to override default?
                   newResult <- upsert ExternalExamResult
                     { externalExamResultExam        = eeId
                     , externalExamResultUser        = uid
                     , externalExamResultResult      = resultGrade
-                    , externalExamResultTime        = now  -- TODO add and use utcTimeField
+                    , externalExamResultTime        = resultTime
                     , externalExamResultLastChanged = now
                     }
                     [ ExternalExamResultResult      =. resultGrade
-                    , ExternalExamResultTime        =. now  -- TODO add and use utcTimeField
+                    , ExternalExamResultTime        =. resultTime
                     , ExternalExamResultLastChanged =. now
                     ]
                   audit $ TransactionExternalExamResultEdit eeId uid