--- a/index-page.lisp
+++ b/index-page.lisp
@@ -2,7 +2,33 @@
 
 (define-page :index "About" "index" index-page :index-order :top)
 
-(defparameter *most-recent-release* (list "1.0.22" "October 30, 2008"))
+(defparameter *month-names* ;; Isn't there some better way to do this?
+  '("January" "February" "March" "April" "May" "June" "July" "August" "September" "October" "November" "December"))
+
+(defun split-at (separator string &key (start 0))
+  (let ((found (position separator string :start start)))
+    (if found
+        (cons (subseq string start found)
+              (split-at separator string :start (1+ found)))
+        (list (subseq string start)))))
+
+(defun parse-current-release-data ()
+  (with-open-file (stream (merge-pathnames "current-release"
+                                           (if #.*compile-file-truename*
+                                               (make-pathname :directory (pathname-directory #.*compile-file-truename*))
+                                               *default-pathname-defaults*))
+                          :direction :input)
+    (list
+     (read-line stream)
+     (let ((date (split-at #\/ (read-line stream))))
+       (if (eql (length date) 3)
+           (let ((month (parse-integer (second date))))
+             (format nil "~A ~A, ~A" (elt *month-names* (1- month))
+                     (third date)
+                     (first date)))
+           "An unrecognized date")))))
+
+(defparameter *most-recent-release* (parse-current-release-data))
 
 (defun index-page ()
   (list