diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index c43934a20..4f704ebc2 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -46,9 +46,9 @@
   (let ((in (make-hash-table))
         (comment-table (make-hash-table)))
     (dolist (comment comments)
-      (check-type comment model:issue-comment)
-      (setf (gethash (id comment) in) (body comment))
-      (setf (gethash (id comment) comment-table) comment))
+      (when (typep comment 'model:issue-comment)
+        (setf (gethash (id comment) in) (body comment))
+        (setf (gethash (id comment) comment-table) comment)))
     (let ((res (render-markdown in)))
       (iter (for (comment-id markdown-body) in-hashtable res)
         (let ((comment-id (parse-integer (symbol-name comment-id))))