Fix a typo.

Ignore-this: ed0592833c3aa3404eacf6fcdc3dabc9

darcs-hash:9938420ae79febf5c09ac14af294a1dd9adcc1b5

1 files changed, 1 insertions, 1 deletions

diff --git a/main.lisp b/main.lisp
index 4309598..763030d 100644
--- a/main.lisp
+++ b/main.lisp
@@ -196,7 +196,7 @@
                                   :uuid      (make-uuid)
                                   :entry-id  (id-of entry)
                                   :date      (get-universal-time)
-                                  :blog-name (getf *query* :blog-name)
+                                  :blog-name (getf *query* :blog_name)
                                   :title     (getf *query* :title)
                                   :excerpt   (getf *query* :excerpt)
                                   :url       (getf *query* :url)