diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs
index 21c3b44..9eab741 100644
--- a/src/Vervis/Foundation.hs
+++ b/src/Vervis/Foundation.hs
@@ -837,9 +837,9 @@ instance YesodBreadcrumbs App where
         TicketDiscussionR shar proj num  -> ( "Discussion"
                                             , Just $ TicketR shar proj num
                                             )
-        TicketMessageR shar proj t c     -> ( T.pack $ '#' : show c
+        TicketMessageR shr prj num mkhid -> ( "#" <> keyHashidText mkhid
                                             , Just $
-                                              TicketDiscussionR shar proj t
+                                              TicketDiscussionR shr prj num
                                             )
         TicketTopReplyR shar proj num    -> ( "New topic"
                                             , Just $