--- a/keys-page.lisp
+++ b/keys-page.lisp
@@ -1,3 +1,5 @@
+(in-package :sbcl-page)
+
 (define-page :keys "Maintainer public keys" "keys" keys-page)
 
 (defvar *keys* nil)
@@ -8,11 +10,13 @@
     (push-end (cons ,name ,key) *keys*)))
 
 (defun keys-page ()
-  `((:|p| "This page lists the GPG/PGP public keys of the SBCL maintainers, for use in verifying the integrity of downloads.")
-    ,@(mapcar #'(lambda (key)
-                  `(:|p| ,(format nil "~A'~A public key is:" (first key)
-                                  (if (eql (elt (first key) (1- (length (first key)))) #\s)
-                                      ""
-                                      "s"))
-                    (:|pre| ,(cdr key))))
-              *keys*)))
+  (list
+   (<p> "This page lists the GPG/PGP public keys of the SBCL maintainers, for use in verifying the integrity of downloads.")
+   (mapcar
+    (lambda (key)
+      (<p> (format nil "~A'~A public key is:" (first key)
+                   (if (eql (elt (first key) (1- (length (first key)))) #\s)
+                       ""
+                       "s"))
+           (<pre> (cdr key))))
+    *keys*)))