diff --git a/src/Handler/Tutorial/Users.hs b/src/Handler/Tutorial/Users.hs
index f8215a0d9..eb15e4e84 100644
--- a/src/Handler/Tutorial/Users.hs
+++ b/src/Handler/Tutorial/Users.hs
@@ -67,6 +67,12 @@ postTUsersR tid ssh csh tutn = do
           ]
         addMessageI Success $ MsgTutorialUsersDeregistered nrDel
         redirect $ CTutorialR tid ssh csh tutn TUsersR
+  
+  tutors <- runDB $
+    E.select $ E.from $ \(tutor `E.InnerJoin` user) -> do
+      E.on $ tutor E.^. TutorUser E.==. user E.^. UserId
+      E.where_ $ tutor E.^. TutorTutorial E.==. E.val tutid
+      return user
 
   let heading = prependCourseTitle tid ssh csh $ CI.original tutorialName
   siteLayoutMsg heading $ do
diff --git a/templates/tutorial-participants.hamlet b/templates/tutorial-participants.hamlet
index 1c6999f09..a5ca27d35 100644
--- a/templates/tutorial-participants.hamlet
+++ b/templates/tutorial-participants.hamlet
@@ -1,2 +1,13 @@
 $newline never
+<section>
+  <dl .deflist>
+    <dt .deflist__dt>_{MsgTableTutorialTime}
+    <dd .deflist__dd>
+      ^{occurrencesWidget tutorialTime}
+    <dt .deflist__dt>_{MsgTableTutorialTutors}
+    <dd .deflist__dd>
+      <ul>
+        $forall (Entity _ User{userDisplayName, userDisplayEmail, userSurname}) <- tutors
+          <li>
+            ^{nameEmailWidget userDisplayEmail userDisplayName userSurname}
 ^{participantTable}