   ((EventBinding. node (name event-name) nil) handler))
 
 (defn- do-bind-attr [setter val]
-  (r/bind-attr* val setter queue-animation))
+  (let [binding
+        (r/bind-attr* val setter queue-animation)]
+    binding))
 
 (defn- bind-style! [node style-kw style-val]
   (let [style-name (name style-kw)]

                     root-node
                     nil
                     (bind-attrs! root-node {}))]
          (configure-root! vroot vdom))))
    root-node)) 


    :default (.toString value)))

(defn- set-attr! [element attr-name attr-value]
  ;; (println "setting attr" element attr-name attr-value)
  (if attr-value
    (.setAttribute element attr-name (normalize-attr-value attr-value))
    (.removeAttribute element attr-name)))
