diff --git a/src/Handler/Tutorial/Users.hs b/src/Handler/Tutorial/Users.hs
index 32ee7aa04..8ece41d3a 100644
--- a/src/Handler/Tutorial/Users.hs
+++ b/src/Handler/Tutorial/Users.hs
@@ -55,7 +55,7 @@ postTUsersR tid ssh csh tutn = do
   showSex <- getShowSex
   (Entity tutid Tutorial{..}, (participantRes, participantTable)) <- runDB $ do
     tut@(Entity tutid _) <- fetchTutorial tid ssh csh tutn
-    qualifications <- selectList [QualificationSchool ==. ssh] []
+    qualifications <- selectList [QualificationSchool ==. ssh] [Asc QualificationShorthand]
     now <- liftIO getCurrentTime
     let minDur :: Maybe Int = minimumMaybe $ catMaybes (view _qualificationValidDuration <$> qualifications)  -- no instance Ord CalendarDiffDays        
         dayExpiry = flip addGregorianDurationClip (utctDay now) . fromMonths <$> minDur