diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp
index 57113c1..4fecf70 100644
--- a/src/coleslaw.lisp
+++ b/src/coleslaw.lisp
@@ -42,7 +42,10 @@
       (publish ctype))
     (do-subclasses (itype index)
       (publish itype))
-    (let ((recent-posts (first (find-all 'numeric-index))))
+    (let ((recent-posts (reduce #'(lambda (a b)
+                                    (if (< (index-name a) (index-name b))
+                                        a b))
+                                (find-all 'numeric-index))))
       (update-symlink "index.html" (page-url recent-posts)))))
 
 (defgeneric deploy (staging)