diff --git a/src/posts.lisp b/src/posts.lisp
index 40ce85b..9bd3512 100644
--- a/src/posts.lisp
+++ b/src/posts.lisp
@@ -33,7 +33,7 @@
      for i from 1 upto (length posts)
      for prev = nil then post
      for post = (nth (1- i) posts)
-     for next = (nth (1+ i) posts)
+     for next = (nth i posts)
      do (write-post post :prev (and prev (post-url prev))
                          :next (and next (post-url next)))))