diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 55f0ad589..e3f2ef05a 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -76,7 +76,7 @@ getCorrectionsR = do
                   csh = E.unValue $ $(projNI 4 2) course
                   shn = sheetName $ entityVal sheet
               cid <- encrypt (entityKey submission :: SubmissionId)
-              [whamlet|@{CSheetR tid csh shn (SubmissionR cid)}|]
+              [whamlet|<a href=@{CSheetR tid csh shn (SubmissionR cid)}>#{display cid}|]
         ]
         -- TODO continue here
   table <- dbTable def $ DBTable