 
         more-stuff (delete-first
                     (fn [comp] ; make sure interesting subtypes still get printed
-                      (contains? covered-condition-types
+                      (contains? (covered-condition-types)
                                  (:type comp)))
                     ;; we don't expect interesting subtypes here
                     (delete-first

  active.clojure.condition
  (:refer-clojure :exclude (assert))
  #+clj (:require [clojure.core :as core] ; get assert back
                  [clojure.stacktrace :as stack])
  #+cljs (:require-macros [active.clojure.condition 
                           :refer (define-condition-type assert condition raise guard)]
                          [cljs.core :as core])

        (print spaces)
        (pr irritant))
      (print "\n"))))

#+clj
(defn repl-caught
  [& [e]]
  (let [e (or e *e)]
    (if (condition? e)
      (print-condition e *err*)
      (main/repl-caught e))))
