Fix a typo.

Ignore-this: e7eb9f2a961b5c8e87dde5470973759e

darcs-hash:b316126630a03508c5d92aa2bdae7201ee41cc3f

1 files changed, 1 insertions, 1 deletions

diff --git a/main.lisp b/main.lisp
index 9dbe04e..36de3d9 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)]
-                                           :avpairs `((spam-p nil))))
+                                           :av-pairs `((spam-p nil))))
                          (when (eq *site* :nfs.net)
                            (mail-comment *notification-email* comment entry))))
                      (show-web-journal))