diff --git a/src/new-survey.lisp b/src/new-survey.lisp
index 583669f..fb2e9a5 100644
--- a/src/new-survey.lisp
+++ b/src/new-survey.lisp
@@ -26,7 +26,7 @@
   "Generates the view to create a new survey."
   (let ((questionnaires (list-questionnaires)))
     (with-page (:title "New Survey")
-      (body-header "New Survey"
+      (body-header t "New Survey"
         (with-navbar (:brand "ml-survey" :active-item "New Survey")
                      "Home" "/" "New Survey" "/new-survey"))
       (body-main t