From 6c2148662a816b3e7fe7a3a7a7230cef7a322c3e Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sat, 3 Aug 2024 11:45:51 +0200
Subject: [PATCH] Fix body-header

---
 src/new-survey.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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