diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 458954156..7aa891e36 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -65,13 +65,19 @@ colTerm = sortable (Just "term") (i18nCell MsgTerm)
 
 colCourse :: Colonnade Sortable CorrectionTableData (Cell UniWorX)
 colCourse = sortable (Just "course") (i18nCell MsgCourse)
-        $ \DBRow{ dbrOutput=(_, _, course) } ->
-          textCell $ E.unValue $ course ^. _2
+        $ \DBRow{ dbrOutput=(_, _, course) } -> cell $
+          let tid = E.unValue $ course ^. _3
+              csh = E.unValue $ course ^. _2
+          in [whamlet|<a href=@{CourseR tid csh CShowR}>#{display csh}|]
 
 colSheet :: Colonnade Sortable CorrectionTableData (Cell UniWorX)
 colSheet = sortable (Just "sheet") (i18nCell MsgSheet)
-        $ \DBRow{ dbrOutput=(_, sheet, _) } ->
-          textCell $ sheetName $ entityVal sheet
+        $ \DBRow{ dbrOutput=(_, sheet, course) } -> cell $
+          let tid = E.unValue $ course ^. _3
+              csh = E.unValue $ course ^. _2
+              shn = sheetName $ entityVal sheet
+          in [whamlet|<a href=@{CSheetR tid csh shn SShowR}>#{display shn}|]
+          -- textCell $ sheetName $ entityVal sheet
 
 colCorrector :: Colonnade Sortable CorrectionTableData (Cell UniWorX)
 colCorrector = sortable (Just "corrector") (i18nCell MsgCorrector)