diff --git a/src/brmelect.scm b/src/brmelect.scm
index d5404b9..c0e3a4a 100644
--- a/src/brmelect.scm
+++ b/src/brmelect.scm
@@ -180,7 +180,7 @@ ORDER BY vote_id" id)))
 ;; /admin/meeting/:id/vote
 (define-resource (create-meeting-vote "admin" "meeting" id "vote" params)
   (if (string=? (resource-context-method (current-resource-context)) "POST")
-      (let ((title (param params 'vote-title)))
+      (let ((title (param params "vote-title")))
         (query-db "SELECT brm.create_vote_and_init_status($1, $2)" id title)
         (make-html-response
          200