Fix a typo.

Ignore-this: 9d70a3e19b339a3c796792b97aa59b17

darcs-hash:881e8887bac7cfceecda43b3d229cf71fde10bd7

1 files changed, 1 insertions, 1 deletions

diff --git a/main.lisp b/main.lisp
index 1a8ce85..42eda2c 100644
--- a/main.lisp
+++ b/main.lisp
@@ -155,7 +155,7 @@
                       (acceptp (getf *query* :acceptp nil))
                       (table (cond ((string= type "trackback") 'journal_trackback)
                                    ((string= type "pingback") 'journal_pingback)
-                                 'journal_comment)))
+                                   (t 'journal_comment))))
                  (with-transaction ()
                    (when (and id type acceptp (string= acceptp "t"))
                      (update-records table