From a6c3c1004e45a2d190af63937bdd53ef78fd1cd2 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 12 Oct 2009 13:15:26 +0200
Subject: Fix a typo.

Ignore-this: c9f7d194200fa01eaed6d06ca0fc0938

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

diff --git a/journal.lisp b/journal.lisp
index 2669060..59e33e9 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -503,7 +503,7 @@
                          nil)
                      :canonical-uri (case *action*
                                       (:view
-                                       (link-to :view :post-id post-id :absolute t))
+                                       (link-to :view :post-id *post-number* :absolute t))
                                       ((:index nil)
                                        (link-to :index :absolute t))))
     (case *action*
-- 
cgit v1.2.3