diff --git a/src/nera.lisp b/src/nera.lisp
index 4e2e45c..62829d8 100644
--- a/src/nera.lisp
+++ b/src/nera.lisp
@@ -225,12 +225,14 @@
       (setf (site-settings::site-name-of settings-to-update) name)
       (mito:save-dao settings-to-update))))
 
-(defun update-nav-menu (page-slug value)
-  "Updates the `ENABLE-NAV-MENU' property in `PAGES' database."
-  (with-connection (db)
-    (let ((page-to-update (mito:find-dao 'page :slug page-slug)))
-      (setf (pages::enable-nav-menu-p page-to-update) value)
-      (mito:save-dao page-to-update))))
+(defun update-nav-menu (selected-pages)
+  "Updates the `ENABLE-NAV-MENU' property in `PAGE' database."
+  (loop for page in selected-pages
+	do (with-connection (db)
+	     (let ((page-to-update (mito:find-dao 'page :slug (car page))))
+	       (setf (pages::enable-nav-menu-p page-to-update)
+		     (utils:checkbox-to-bool (cdr page)))
+	       (mito:save-dao page-to-update)))))
 
 (defun nav-menu-slugs ()
   (with-connection (db)