diff of 1c66b8a0e5a9ea1e9acf7a47fc5536dc343715f6

1c66b8a0e5a9ea1e9acf7a47fc5536dc343715f6
diff --git a/src/local-lib/lisp-fixup.lisp b/src/local-lib/lisp-fixup.lisp
index 4e7ee15..f6fed47 100644
--- a/src/local-lib/lisp-fixup.lisp
+++ b/src/local-lib/lisp-fixup.lisp
@@ -1,6 +1,7 @@
 (defpackage lisp-fixup
   (:use :cl :cl-hash-util)
   (:export :if-modified-since->simpledate-timestamp :*rfc822*
+	   :month->string
 	   :group-by
 	   :*dev?* :to-secs
 	   :fix-timestamp
diff --git a/src/view/components/root.lisp b/src/view/components/root.lisp
index 4db43ef..167e0e6 100644
--- a/src/view/components/root.lisp
+++ b/src/view/components/root.lisp
@@ -24,12 +24,14 @@
 				 (loop for month being the hash-keys of by-month
 				       collecting (:li
 						   (:details
-						    (:summary (format nil "~a (~d)" month (length (gethash month by-month))))
+						    (:summary (format nil "~a (~d)" (lisp-fixup:month->string month) (length (gethash month by-month))))
 						    (:ul 
 						     (map 'list
 							  (lambda (title)
-							    (cl-hash-util:with-keys ("Id" "Title") title
-							      (:li (:a :href (format nil "/blog/post/~d" Id)
+							    (let ((Id (gethash "Id" title))
+								  (Title (gethash "Title" title)))
+							      (:li
+							       (:a :href (format nil "/blog/post/~d" Id)
 								       Title))))
 							  (gethash month by-month)))))))))))))))