   (reduce (fn [s [key eventhandler]]
             (if-let [nextfs (next->fns eventhandler)]
               (if (contains? msg key)
-                (let [evmsgs (map #(assoc msg :comp (% msg))
+                (let [evmsgs (map #(assoc msg ::component (% msg))
                                   nextfs)]
                   (-> (update s :abort? #(or % (:abort? eventhandler)))
                       (update :evmsgs #(concat % evmsgs))))

            [ow.starbuck.core :refer [defcomponentrecord] :as oc]))

(defn- printable-msg [msg]
  (select-keys msg #{:route :comp :starbuck/route-count}))

(defn- inc-route-count [msg]
  (update msg :starbuck/route-count
          #(inc (or % 0))))

(defn- next->fns [m]

          resmsgs (if abort?
                    evmsgs
                    (concat evmsgs (->> (goto-next-and-transform transs [msg])
                                        (map inc-transition-count))))]
      (debug "routing ending with" (mapv printable-msg resmsgs))
      resmsgs)
    (do (warn "dropping message due to high transition-count")
        [])))


