From 1bb6b44043eb9b1b18d6c4eff5a9a113c107394a Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 17:24:22 +0200
Subject: Fix SHOW-ATOM-ENTRY.

Ignore-this: ca9ea9a314ccd9e89bff8db673729824

darcs-hash:ebd7692666b643b8fba43f252d445162b8828743
---
 journal.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/journal.lisp b/journal.lisp
index 67295b4..75a7afd 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -133,7 +133,7 @@
   (http-send-headers "application/atom+xml; charset=UTF-8")
 
   (with-xml-output (*standard-output* :encoding "utf-8")
-    (show-atom-entry-xml journal-entry :full-content t)))
+    (show-atom-entry-xml (find-entry *post-number*) :full-content t)))
 
 
 (defun show-atom-entry-xml (journal-entry &key full-content include-edit-links)
-- 
cgit v1.2.3