diff --git a/src/nera.lisp b/src/nera.lisp
index 97fd383..321d489 100644
--- a/src/nera.lisp
+++ b/src/nera.lisp
@@ -330,13 +330,15 @@ slug is updated based on `NEW-FILE-NAME'."
       (sxql:order-by (:asc :title)))))
 
 (defun create-archive-entry
-    (title search-id slug thumbnail-slug thumbnail-file-type keywords)
+    (title search-id slug pub-month pub-year thumbnail-slug thumbnail-file-type keywords)
   "Add a new `ARCHIVE-ENTRY' to the database."
   (with-connection (db)
     (mito:create-dao 'archive:archive-entry
 		     :title title
 		     :search-id search-id
 		     :slug slug
+                     :month pub-month
+                     :year pub-year
 		     :thumbnail-slug thumbnail-slug
 		     :thumbnail-file-type thumbnail-file-type
 		     :keywords keywords)))