                             comp))
                      (::components (ex-data cond)))]
         (nth (:arguments comp) i)
-        (throw (Error. (str cond " is not a condition of type " type)))))))
+        (throw (new Error (str cond " is not a condition of type " type)))))))
 
 (defmacro define-condition-type
   "    (define-condition-type <condition-type>

      local-index)))

#+cljs
(defrecord Error [str])

(defn condition-accessor
  "Create an an accessor for `field-name` for conditions of type `type`."

#+cljs
(def *ns* "<cljs>")

(defn ^:private ex-info-msg 
  [namespace]
  (str "This is a " namespace " active.clojure.condition."))

(defrecord ConditionType
    [name supertype field-names total-field-count])
