diff --git a/src/indexes.lisp b/src/indexes.lisp
index 35e52a5..8ead77b 100644
--- a/src/indexes.lisp
+++ b/src/indexes.lisp
@@ -17,9 +17,6 @@
 
 (defclass tag-index (index) ())
 
-(defmethod page-url ((object tag-index))
-  (format nil "tag/~a" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'tag-index))))
   (let ((content (by-date (find-all 'post))))
     (dolist (tag (all-tags))
@@ -39,9 +36,6 @@
 
 (defclass month-index (index) ())
 
-(defmethod page-url ((object month-index))
-  (format nil "date/~a" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'month-index))))
   (let ((content (by-date (find-all 'post))))
     (dolist (month (all-months))
@@ -61,9 +55,6 @@
 
 (defclass numeric-index (index) ())
 
-(defmethod page-url ((object numeric-index))
-  (format nil "~d" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'numeric-index))))
   (let ((content (by-date (find-all 'post))))
     (dotimes (i (ceiling (length content) 10))
@@ -90,9 +81,6 @@
 (defclass feed (index)
   ((format :initform nil :initarg :format :accessor feed-format)))
 
-(defmethod page-url ((object feed))
-  (format nil "~a.xml" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'feed))))
   (let ((content (by-date (find-all 'post))))
     (dolist (format '(rss atom))
@@ -109,9 +97,6 @@
 
 (defclass tag-feed (feed) ())
 
-(defmethod page-url ((object tag-feed))
-  (format nil "tag/~a.xml" (index-slug object)))
-
 (defmethod discover ((doc-type (eql (find-class 'tag-feed))))
   (let ((content (by-date (find-all 'post))))
     (dolist (tag (feeds *config*))
diff --git a/src/posts.lisp b/src/posts.lisp
index a74314f..24dd102 100644
--- a/src/posts.lisp
+++ b/src/posts.lisp
@@ -21,9 +21,6 @@
                                   :prev prev
                                   :next next)))
 
-(defmethod page-url ((object post))
-  (format nil "posts/~a" (content-slug object)))
-
 (defmethod publish ((doc-type (eql (find-class 'post))))
   (loop for (next post prev) on (append '(nil) (by-date (find-all 'post)))
      while post do (write-document post nil :prev prev :next next)))