diff --git a/src/Handler/Utils/Table/Pagination.hs b/src/Handler/Utils/Table/Pagination.hs
index c0ad787ca..0bba1059d 100644
--- a/src/Handler/Utils/Table/Pagination.hs
+++ b/src/Handler/Utils/Table/Pagination.hs
@@ -1310,7 +1310,7 @@ dbTable PSValidator{..} dbtable@DBTable{ dbtIdent = dbtIdent'@(toPathPiece -> db
 
             wrap' :: Seq (Seq (Widget, Int)) -> Widget
             wrap' wRows = view _2 $ Foldable.foldl (\(stackHeight', acc) row -> (Nothing, (acc <>) . wrap stackHeight' $ foldOf (folded . _1) row)) (stackHeight, mempty) wRows
-              where stackHeight = maximumOf (folded . to (ala Sum foldMap . fmap (view _2))) wRows
+              where stackHeight = Just $ length wRows
             wrap :: Maybe Int -> Widget -> Widget
             wrap stackHeight row = case dbsTemplate of
               DBSTCourse{} -> row