Fix yet another typo.

Ignore-this: 19f02efdf14c355631e75a6de76f2dec

darcs-hash:83d630c474fd176a2beaf08dd4510864fbae2f07

1 files changed, 1 insertions, 1 deletions

diff --git a/main.lisp b/main.lisp
index 50e3af1..9bc8d43 100644
--- a/main.lisp
+++ b/main.lisp
@@ -181,7 +181,7 @@
                          (update-records-from-instance comment)
                          (update-records-from-instance entry)
                          (unless (spamp comment)
-                           (update-records 'journal-comment
+                           (update-records 'journal_comment
                                            :where [= [slot-value 'journal-comment 'id] (id-of comment)]
                                            :av-pairs `((spam_p nil))))
                          (when (eq *site* :nfs.net)