diff --git a/src/Types/Interior.hs b/src/Types/Interior.hs
index 57ed8a6..8a89381 100644
--- a/src/Types/Interior.hs
+++ b/src/Types/Interior.hs
@@ -117,8 +117,10 @@ clusterMatWithRPs ClusterFlipchart dim _ =
   , clusterPoints ClusterFlipchart dim
   )
 clusterMatWithRPs ClusterConferenceTable dim@(h, w) _ =
-  let mw = max 4 w
-      mh = max 4 h
+  let mmw = max 4 w
+      mmh = max 4 h
+      mw  = min 7 mmw
+      mh  = min 7 mmh
   in
     ( M.fromLists $
         [ replicate mw (Just ImgEmpty)