Bugfix.

darcs-hash:36c7becf4a88663fa2558274bffcd72d68e31690

1 files changed, 4 insertions, 2 deletions

diff --git a/journal.lisp b/journal.lisp
index 9de97ae..f99aae4 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -341,7 +341,8 @@ after another in any arbitrary order."
         (emit-simple-tags :title "Kompottkins Weisheiten"
                           :updated (atom-time
                                     (max (reduce #'max *journal-entries*
-                                                 :key #'date-of)
+                                                 :key #'date-of
+                                                 :initial-value 0)
                                          (reduce #'(lambda (x y)
                                                      (cond ((and x y)
                                                             (max x y))
@@ -349,7 +350,8 @@ after another in any arbitrary order."
                                                            (y y)
                                                            (t 0)))
                                                  *journal-entries*
-                                                 :key #'last-modification-of)))
+                                                 :key #'last-modification-of
+                                                 :initial-value 0)))
                           :id "88ad4730-90bc-4cc1-9e1f-d4cdb9ce177c")
         (with-tag ("subtitle")
           (xml-as-is "Geschwafel eines libertärsozialistischen Geeks"))