diff options
| -rw-r--r-- | web/panettone/src/panettone.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp index 87c7b0659e35..026d47825f37 100644 --- a/web/panettone/src/panettone.lisp +++ b/web/panettone/src/panettone.lisp @@ -421,7 +421,10 @@ updated issue" (defroute show-issue ("/issues/:id" :decorators (@auth)) (&path (id 'integer)) (handler-case - (render/issue (get-issue *p-system* id)) + (let* ((issue (get-issue *p-system* id)) + (*title* (format nil "~A | Panettone" + (subject issue)))) + (render/issue issue)) (issue-not-found (_) (render/not-found "Issue")))) |