         (when (and (not (zero? @event-delay)) (not-empty deltas) vis-last vis-last-positions)
           (set-el-innerHTML (str el-prefix "-svg")
                             (apply str (flatten (vis-svg-actxs vis-last vis-last-positions
-                                                               deltas :prev))))
+                                                               deltas false))))
           (when (> @event-delay 0) (<! (timeout @event-delay)))
           (when (< @event-delay 0) (<! step-ch)))
         (assign-positions @vis @root-actx vis-positions actx-ch-ch-infos nil)
         (let [vis-next-html (apply str (flatten (vis-html-actx @vis @root-actx actx-ch-ch-infos)))
-              vis-next-svg (apply str (flatten (vis-svg-actxs @vis @vis-positions deltas :curr)))]
+              vis-next-svg (apply str (flatten (vis-svg-actxs @vis @vis-positions deltas true)))]
           (set-el-innerHTML (str el-prefix "-html") vis-next-html)
           (set-el-innerHTML (str el-prefix "-svg") vis-next-svg)
           (if (or (not= vis-next-html vis-last-html)

               (when (nil? result-msg) ; The ch is closed.
                 (swap! vis #(dissoc-in % [:chs result-ch])))
               (when (some #(= % result-ch) ch-bindings)
                 [{:delta :take :msg result-msg :ch result-ch :actx actx
                   :phase :prev}])))}})

;; ------------------------------------------------


                               (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 :ch-name ch-name}]))}
   :aput
   {:before (fn [vis actx args]
              (let [[ch-name ch msg] args]
