diff --git a/src/documents.lisp b/src/documents.lisp
index 1405e69..a7aff98 100644
--- a/src/documents.lisp
+++ b/src/documents.lisp
@@ -35,10 +35,9 @@
           (error "No routing method found for: ~A" class-name)))))
 
 (defmethod page-url :around ((document t))
-  (let ((result (call-next-method)))
-    (if (pathname-type result)
-        (make-pathname :defaults result)
-        (make-pathname :type "html" :defaults result))))
+  (let* ((result (call-next-method))
+         (type (or (pathname-type result) "html")))
+    (make-pathname :type type :defaults result)))
 
 (defgeneric render (document &key &allow-other-keys)
   (:documentation "Render the given DOCUMENT to HTML."))