diff --git a/src/Handler/Admin/Test.hs b/src/Handler/Admin/Test.hs
index 906c941bf..1969f8717 100644
--- a/src/Handler/Admin/Test.hs
+++ b/src/Handler/Admin/Test.hs
@@ -115,6 +115,8 @@ postAdminTestR = do
         , formAttrs = [("uw-async-form", "")]
         }
 
+  now <- liftIO getCurrentTime
+  $logInfoS "TEST" $ "Admin Test Page was retrieved at " <> tshow now <> "." -- to ensure that we can read the right log.
 
   let demoFormAction (_i,_b,_d) = addMessage Info "All ok."
   ((demoResult, formWidget),formEnctype) <- runFormPost $ makeDemoForm 7