         (if-not (nil? cached-class)
           cached-class
           (if (.isValidClass React tag)
-            (set! (.-cljsReactClass tag) (wrap-component tag nil))
+            (set! (.-cljsReactClass tag) (wrap-component tag nil nil))
             (fn-to-class tag)))))))
 
 (defn vec-to-comp [v]


(defn get-wrapper [tag]
  (let [[comp id-class] (parse-tag tag)]
    (wrap-component comp id-class)))

(def cached-wrapper (memoize get-wrapper))


        c2 (aget nextprops cljs-children)]
    (not (util/equal-args p1 c1 p2 c2))))

(defn wrap-component [comp extras name]
  (.createClass React (js-obj "render"
                              #(this-as C (wrapped-render C comp extras))
                              "shouldComponentUpdate"
                              #(this-as C (wrapped-should-update C %1 %2))
                              "displayName"
                              (or name "ComponentWrapper"))))

;; From Weavejester's Hiccup, via pump:
(def ^{:doc "Regular expression that parses a CSS-style id and class
