From eab6eebcbdc36ac39c35b0c0f3359efbda2ed338 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 15 Jan 2010 10:53:28 +0100
Subject: Fix yet another typo.

Ignore-this: 7a4e9854f2f32ef34b872ffe373d6245

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

diff --git a/journal.lisp b/journal.lisp
index 220eeef..37b49fe 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -860,7 +860,7 @@
 
 (defun update-comment-feed-for-entry (entry-id)
   (let* ((file-name "comment-feed.xml")
-         (directory (merge-pathnames (make-pathname :directory (list :relative (format nil "~D" id))) *static-dir*))
+         (directory (merge-pathnames (make-pathname :directory (list :relative (format nil "~D" entry-id))) *static-dir*))
          (file-path (merge-pathnames file-name directory)))
     (ensure-directories-exist file-path)
     (with-open-file (*standard-output* file-path :direction :output :if-exists :supersede)
-- 
cgit v1.2.3