diff --git a/src/handlers/survey.lisp b/src/handlers/survey.lisp
index ea3a6ce..1151494 100644
--- a/src/handlers/survey.lisp
+++ b/src/handlers/survey.lisp
@@ -4,13 +4,16 @@
   (labels ((survey-fn (action)
              (case action
                (id (second (split-uri uri)))
+
                (id-p (let ((ids (mapcar #'car (load-response (make-surveys-db-path)))))
                        (if (member (parse-integer (survey-fn 'id)) ids) t nil)))
+
                (uri-p (let ((parts (split-uri uri)))
                         (and (= (length parts) 2)
                              (string= (first parts) "survey")
                              (every #'digit-char-p (second parts))
                              (survey-fn 'id-p))))
+
                (properties (first (rest (assoc (parse-integer (survey-fn 'id))
                                                (load-response (make-surveys-db-path)))))))))
     #'survey-fn))