diff --git a/src/Handler/Tutorial/List.hs b/src/Handler/Tutorial/List.hs
index b49eea883..9043cb08d 100644
--- a/src/Handler/Tutorial/List.hs
+++ b/src/Handler/Tutorial/List.hs
@@ -71,6 +71,12 @@ getCTutorialListR tid ssh csh = do
         dbtSorting = Map.fromList
           [ ("type", SortColumn $ \tutorial -> tutorial E.^. TutorialType )
           , ("name", SortColumn $ \tutorial -> tutorial E.^. TutorialName )
+          , ( "tutors"
+            , SortColumn $ \tutorial -> E.subSelectMaybe . E.from $ \(tutor `E.InnerJoin` user) -> do
+                E.on $ tutor E.^. TutorUser E.==. user E.^. UserId
+                E.where_ $ tutorial E.^. TutorialId E.==. tutor E.^. TutorTutorial
+                return . E.min_ $ user E.^. UserSurname
+            )
           , ("participants", SortColumn $ \tutorial -> let participantCount :: E.SqlExpr (E.Value Int)
                                                            participantCount = E.subSelectCount . E.from $ \tutorialParticipant ->
                                                              E.where_ $ tutorialParticipant E.^. TutorialParticipantTutorial E.==. tutorial E.^. TutorialId