diff --git a/src/Handler/Qualification.hs b/src/Handler/Qualification.hs
index 4c4efb234..14ae74515 100644
--- a/src/Handler/Qualification.hs
+++ b/src/Handler/Qualification.hs
@@ -388,7 +388,7 @@ postQualificationR sid qsh = do
           ]
         colChoices = mconcat
           [ dbSelect (applying _2) id (return . view (resultUser . _entityKey))
-          , colUserNameLinkHdr MsgLmsUser AdminUserR
+          , colUserNameLinkHdr MsgLmsUser ForProfileR
           , colUserEmail
           , sortable (Just "valid-until")   (i18nCell MsgLmsQualificationValidUntil)   $ \(   view $ resultQualUser . _entityVal . _qualificationUserValidUntil  -> d)  -> dayCell d
           , sortable (Just "last-refresh")  (i18nCell MsgTableQualificationLastRefresh)$ \(   view $ resultQualUser . _entityVal . _qualificationUserLastRefresh -> d)  -> dayCell d