Fix another typo.

Ignore-this: d58546015170d7b8b42fbe1587a02391

darcs-hash:d2e7c4b5227e9215417140bb9736f0d3e60d30fb

1 files changed, 1 insertions, 1 deletions

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))