diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs
index 18d507e0f..e7cf7276b 100644
--- a/src/Handler/Course.hs
+++ b/src/Handler/Course.hs
@@ -666,7 +666,7 @@ colUserComment tid ssh csh =
     sortable (Just "course-user-note") (i18nCell MsgCourseUserNote)
       $ \DBRow{ dbrOutput=(Entity uid _, _, mbNoteKey) } ->
         maybeEmpty mbNoteKey $ const $
-          anchorCellM (encrypt uid >>= return . courseLink) (commentWidget True)
+          anchorCellM (courseLink <$> encrypt uid) (commentWidget True)
   where
     courseLink = CourseR tid ssh csh . CUserR