From f94bdc4fad43fe9642f8cfe10a3402dac7e334a0 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 7 Oct 2009 23:30:54 +0200
Subject: Fix another typo.

Ignore-this: d58546015170d7b8b42fbe1587a02391

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

diff --git a/main.lisp b/main.lisp
index 36de3d9..50e3af1 100644
--- a/main.lisp
+++ b/main.lisp
@@ -183,7 +183,7 @@
                          (unless (spamp comment)
                            (update-records 'journal-comment
                                            :where [= [slot-value 'journal-comment 'id] (id-of comment)]
-                                           :av-pairs `((spam-p nil))))
+                                           :av-pairs `((spam_p nil))))
                          (when (eq *site* :nfs.net)
                            (mail-comment *notification-email* comment entry))))
                      (show-web-journal))
-- 
cgit v1.2.3