@@ -1,17 +1,15 @@
◊; SPDX-License-Identifier: BlueOak-1.0.0
◊; This file is licensed under the Blue Oak Model License 1.0.0.
-
-◊(define article-html (crystalize-article! here doc))
-◊(define page-title (article-plain-title here))
-◊html$-page-head[page-title]
+◊(define article-html (parse-and-cache-article! here doc))
+◊html$-page-head[(current-plain-title)]
◊html$-page-body-open[]
◊article-html
◊html$-page-body-close[]