diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index 0b1af742c..87b39ad94 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -317,11 +317,12 @@
                    (who:esc (format-dottime (created-at comment))))))))))
 
 (defmethod render/issue-history-item ((event model:issue-event))
-  (let ((user (find-user-by-dn (acting-user-dn event))))
+  (let ((user (find-user-by-dn (acting-user-dn event)))
+        (fragment (format nil "event-~A" (id event))))
     (who:with-html-output (*standard-output*)
       (:li
        :class "event"
-       :id
+       :id fragment
        (who:esc (displayname-if-known user))
        (if (string= (field event) "STATUS")
            (who:htm