              [{:delta :actx-end :actx actx :child-actx child-actx :phase :prev}]))}
    :ago-loop
    {:loop-state (fn [vis actx args]
-                  (swap! vis #(assoc-in % [:actxs actx :loop-state] args))
+                  (swap! vis #(assoc-in % [:actxs actx :loop-state] (first args)))
                   nil)}
    :aclose
    {:before (fn [vis actx args]


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

(defn vis-html-loop-state [loop-state]
  (mapv (fn [name val])
        loop-state))

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


        chs (:chs vis)]
    (assign-position positions actx-id)
    ["<div id='actx-" actx-id "' class='actx'>" actx-id
     "<div class='loop-state'>" (vis-html-loop-state vis (:loop-state actx-info)) "</div>"
     "<div class='chs'>"
     "  <ul>"
     (mapv (fn [ch-ch-info]
