           (when (< @event-delay 0) (<! step-ch)))
         (assign-positions @vis @root-actx vis-positions actx-ch-ch-infos nil)
         (set-el-innerHTML (str el-prefix "-html")
-                          (apply str (flatten (vis-html-actx @vis @root-actx
-                                                             actx-ch-ch-infos false))))
+                          (apply str (flatten (vis-html-actx @vis @root-actx actx-ch-ch-infos))))
         (set-el-innerHTML (str el-prefix "-svg")
-                          (apply str (flatten (vis-svg-actxs @vis @vis-positions
-                                                             deltas :curr))))
+                          (apply str (flatten (vis-svg-actxs @vis @vis-positions deltas :curr))))
         (recur (inc num-events) @vis @vis-positions)))
     (ago world w
          (reset! root-actx world)

               ["<li id='ch-" ch-id "'>" ch-id ": " (:msgs ch-info) "</li>"]))
           (get actx-ch-ch-infos actx))
     "</ul></div>"
     ["<ul>" (mapv (fn [child-actx]
                     ["<li>" (vis-html-actx vis child-actx
                                            actx-ch-ch-infos (:closed actx-info))
                      "</li>"])
                   (sort #(compare (last %1) (last %2)) (keys children)))
      "</ul>"]
     "</div>"]))

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

                                          "]"]
             :default [name " " (if val val "nil")]))))

(defn vis-html-actx [vis actx actx-ch-ch-infos]
  (let [actx-id (last actx)
        actx-info (get-in vis [:actxs actx])
        children (:children actx-info)]
