diff --git a/src/brmelect.scm b/src/brmelect.scm
index 6de0ce2..763fbad 100644
--- a/src/brmelect.scm
+++ b/src/brmelect.scm
@@ -37,11 +37,7 @@
       (host . "localhost"))))
 
 (define (query-db sql . params)
-  (apply query* db sql params))
-
-(define (exec sql . params)
-  (apply exec* db sql params))
-
+  (apply query db sql params))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; helpers
@@ -161,7 +157,7 @@ ORDER BY vote_id" id)))
              (method "POST")]
            @table{
              @tr{ @th{"New Vote Title"} @th{}}
-             @tr{ @td{@input[(name "vote-title")]} @td{@input[type="submit" value="Create Vote"]}}}
+             @tr{ @td{@input[(name "vote-title")]} @td{@input[(type "submit") (value "Create Vote")]}}}
          @table{
            @tr{ @th{ID} @th{Title} @th{Start} @th{End} @th{Active} @th{Actions}}
            @,@(row-map*