diff --git a/source/clog-form.lisp b/source/clog-form.lisp
index 14cbe4b..5882733 100644
--- a/source/clog-form.lisp
+++ b/source/clog-form.lisp
@@ -223,7 +223,7 @@ attribute/value pairs in the form attr= 'value'"))
   (when (or hidden style)
     (setf (getf args :style)
           (format nil "~@[~a~]~@[~a~]" (when hidden "visibility:hidden;") style)))
-  (dolist (key '(:name :html-id :auto-place))
+  (dolist (key '(:html-id :auto-place))
     (remf args key))
   (let* ((element (create-child
                    obj (format nil "<input type='~A' ~{~(~A~)= '~A'~^ ~}/>"
@@ -235,8 +235,6 @@ attribute/value pairs in the form attr= 'value'"))
       (label-for label element))
     element))
 
-(escape-string :vslider :html t)
-
 ;;;;;;;;;;;;;;;;;;
 ;; autocomplete ;;
 ;;;;;;;;;;;;;;;;;;