diff --git a/src/Vervis/Ticket.hs b/src/Vervis/Ticket.hs
index 89a5dee..1e92bae 100644
--- a/src/Vervis/Ticket.hs
+++ b/src/Vervis/Ticket.hs
@@ -123,7 +123,7 @@ getTicketSummaries mfilt morder offlim deckID = do
 
             E.where_ $ td E.^. TicketDeckDeck E.==. E.val deckID
             E.groupBy
-                ( t E.^. TicketId
+                ( t E.^. TicketId, td E.^. TicketDeckId
                 , tal E.?. TicketAuthorLocalId, p E.?. PersonId, a E.?. ActorId
                 , ra E.?. RemoteActorId, ro E.?. RemoteObjectId, i E.?. InstanceId
                 )
@@ -197,7 +197,7 @@ getClothSummaries mfilt morder offlim loomID = do
 
             E.where_ $ tl E.^. TicketLoomLoom E.==. E.val loomID
             E.groupBy
-                ( t E.^. TicketId
+                ( t E.^. TicketId, tl E.^. TicketLoomId
                 , tal E.?. TicketAuthorLocalId, p E.?. PersonId, a E.?. ActorId
                 , ra E.?. RemoteActorId, ro E.?. RemoteObjectId, i E.?. InstanceId
                 )