diff --git a/src/Handler/Utils/Table/Cells.hs b/src/Handler/Utils/Table/Cells.hs
index f49bffbe5..f8ecbbb53 100644
--- a/src/Handler/Utils/Table/Cells.hs
+++ b/src/Handler/Utils/Table/Cells.hs
@@ -401,17 +401,15 @@ examOccurrenceCell Entity{entityVal = ExamOccurrence{..}} =
 
 
 examCell :: IsDBTable m a => Course -> Exam -> DBCell m a
-examCell Course{..} Exam{..} = anchorCell link name `mappend` desc
+examCell Course{..} Exam{..} = anchorCell link name <> addModalDescriptionCell examDescription
   where
     link = CExamR courseTerm courseSchool courseShorthand examName EShowR
     name = citext2widget examName
-    desc = case examDescription of
-            Nothing      -> mempty
-            (Just descr) -> cell [whamlet|
-              $newline never
-              <div>
-                ^{modal "Beschreibung" (Right $ toWidget descr)}
-              |]
+
+examOccurrenceCell :: IsDBTable m a => Entity ExamOccurrence -> DBCell m a
+examOccurrenceCell Entity{entityVal = ExamOccurrence{..}} =
+  wgtCell [whamlet|#{examOccurrenceName}:^{formatTimeRangeW SelFormatDateTime examOccurrenceStart examOccurrenceEnd}|]
+
 
 -- also see Handler.Utils.Widgets.companyWidget
 companyCell :: IsDBTable m a => CompanyShorthand -> CompanyName -> Bool -> DBCell m a