diff --git a/dev.metalisp.survey.asd b/dev.metalisp.survey.asd
index 0ef0364..c68b462 100644
--- a/dev.metalisp.survey.asd
+++ b/dev.metalisp.survey.asd
@@ -2,7 +2,7 @@
 
 (defsystem "dev.metalisp.survey"
   :description "Create questionnaires and analyze the results."
-  :version "0.5.2"
+  :version "0.5.3"
   :author "Marcus Kammer <marcus.kammer@metalisp.dev>"
   :source-control (:git "git@git.sr.ht:~marcuskammer/dev.metalisp.survey")
   :licence "MIT"
diff --git a/src/surveys.lisp b/src/surveys.lisp
index 7265bb5..7de06c7 100644
--- a/src/surveys.lisp
+++ b/src/surveys.lisp
@@ -32,27 +32,27 @@
 
 SURVEYS: List of survey objects."
   (check-type surveys surveys-list)
-    (with-page (:title "Surveys")
-      (body-header "fluid" "Surveys"
-        (with-navbar "fluid" "Home"
-          "Home" "/" "New Survey" "/new-survey"))
-      (body-main "fluid"
-        (when surveys
-          (with-section
-            (with-title-bar "All Surveys")
-            (:ol :class "list-group list-group-numbered"
-                 (loop for survey in surveys
-                       for title = (ml-survey/survey:survey-properties-title survey)
-                       for description = (ml-survey/survey:survey-properties-description survey)
-                       for id = (ml-survey/survey:survey-id survey) do
-                         (:li :class "list-group-item d-flex justify-content-between align-items-start"
-                              (:div :class "ms-2 me-auto"
-                                    (:a :class "fw-bold clearfix"
-                                        :href (format nil "/survey/~a" id)
-                                        title)
-                                    (if description
-                                        (:span description)
-                                        nil))))))))))
+  (with-page (:title "Surveys")
+    (body-header "fluid" "Surveys"
+      (with-navbar "fluid" "Home"
+        "Home" "/" "New Survey" "/new-survey"))
+    (body-main "fluid"
+      (when surveys
+        (with-section
+          (with-title-bar "All Surveys")
+          (:ol :class "list-group list-group-numbered"
+               (loop for survey in surveys
+                     for title = (ml-survey/survey:survey-properties-title survey)
+                     for description = (ml-survey/survey:survey-properties-description survey)
+                     for id = (ml-survey/survey:survey-id survey) do
+                       (:li :class "list-group-item d-flex justify-content-between align-items-start"
+                            (:div :class "ms-2 me-auto"
+                                  (:a :class "fw-bold clearfix"
+                                      :href (format nil "/survey/~a" id)
+                                      title)
+                                  (if description
+                                      (:span description)
+                                      nil))))))))))
 
 (define-easy-handler (surveys-handler :uri "/") nil
   (let* ((list-of-surveys (mapcar (lambda (x)