diff --git a/TODO b/TODO
new file mode 100644
index 000000000..2c6b5c931
--- /dev/null
+++ b/TODO
@@ -0,0 +1 @@
+* create entirely new CouchDB views to return the blog IDs in descending order
diff --git a/src/Blog.hs b/src/Blog.hs
index 0709dd3a3..7b39fe5c9 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -77,7 +77,7 @@ renderEntries entries topText = H.div ! A.class_ "innerBox" $ do
     H.div ! A.class_ "innerBoxTop" $ toHtml topText
     H.div ! A.class_ "innerBoxMiddle" $ do
         H.ul $ 
-            sequence_ $ reverse $ map showEntry entries
+            sequence_ . reverse $ map showEntry entries
     where
         showEntry :: Entry -> Html
         showEntry e = H.li $ do 
diff --git a/src/Main.hs b/src/Main.hs
index 60da99464..debf02e3c 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -64,7 +64,7 @@ tryEntry (Just entry) = toResponse $ blogTemplate eLang eTitle $ renderEntry ent
 
 showIndex :: BlogLang -> ServerPart Response
 showIndex lang = do
-    entries <- getLatest lang [("limit", toJSON (6 :: Int)), ("descending", toJSON True)]
+    entries <- getLatest lang [("limit", toJSON (7 :: Int)), ("descending", toJSON True)]
     ok $ toResponse $ blogTemplate lang "" $ renderEntries entries (topText lang)
 
 showMonth :: Int -> Int -> BlogLang -> ServerPart Response