diff --git a/src/hssg/artifacts/html.lisp b/src/hssg/artifacts/html.lisp
index 6859fd9..ce284a4 100644
--- a/src/hssg/artifacts/html.lisp
+++ b/src/hssg/artifacts/html.lisp
@@ -36,9 +36,10 @@
(template hssg.artifact::template)
(output hssg.artifact::output))
artifact
- (let ((contents (plump:serialize
- (sexp->plump-tree (cdr (assoc :content (funcall template data))))
- nil)))
+ (let* ((plump:*tag-dispatchers* plump:*xml-tags*)
+ (contents (plump:serialize
+ (sexp->plump-tree (cdr (assoc :content (funcall template data))))
+ nil)))
(make-instance 'hssg.filesystem:write-string-contents
:contents (format nil "~%~A" contents)
:path output))))