                      (:wait-chs actx-info))))
            (:actxs vis))
      (mapv (fn [delta]
-             (when (= phase (:phase delta))
+             (when (= after (not (not (:after delta))))
                (let [childy (actx-y (:child-actx delta))
                      ay (actx-y (:actx delta))
                      cy (ch-y (:ch delta))]

                               (dissoc-in [:chs ch :msgs msg])))
               (when (nil? msg) ; The ch is closed.
                 (swap! vis #(dissoc-in % [:chs ch])))
               [{:delta :take :msg msg :ch ch :actx actx :phase :prev :ch-name ch-name}]))}
   :aput
   {:before (fn [vis actx args]
              (let [[ch-name ch msg] args]

  ["<line class='" class "' x1='" x1 "' y1='" y1 "' x2='" x2 "' y2='" y2
   "' stroke='" stroke "' stroke-width='1' marker-end='url(#triangle)'/>"])

(defn vis-svg-actxs [vis positions deltas after]
  (let [stroke-width 1
        line-height 21
        chs (:chs vis)
