From 4edfe9d3d7eb726782ea888530d00369cdec69fa Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 8 Oct 2009 12:37:28 +0200
Subject: Enhance debuggability.

Ignore-this: 2e67ecfcc5d9e28bf7c980b6950b1938

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

(limited to 'journal.lisp')

diff --git a/journal.lisp b/journal.lisp
index eb1316d..0488f23 100755
--- a/journal.lisp
+++ b/journal.lisp
@@ -35,7 +35,7 @@
                              "/journal")))
     (multiple-value-call
         #'(lambda (&rest args) (apply #'format out args))
-      (case action
+      (ecase action
         (:index "")
         (:full-index "/?full")
         (:view-atom-feed (values "/feed"))
-- 
cgit v1.2.3