     "no actx"))
 
 (defn vis-init [cmds cmd-handlers]
-  (let [vis (atom {:actxs {}}) ; [actx -> {:children {}, :want-chs {}}].
+  (let [vis (atom {:actxs {}}) ; [actx -> {:children {}, :wait-chs {}}].
         max-inflight (atom 10)
         event-delay (atom 0)
         event-ch (chan)

  (if actx
    (let [d (get-in vis [:actxs actx])
          children (:children d)
          want-chs (:want-chs d)]
      ["<div>" (string/join ":" (last actx))
       "<ul>"
       (if (not-empty children)

          (map (fn [kv] ["<li>" (vis-html vis (first kv)) "</li>"]) children)
          "</li></ul>"]
         [])
       (if (not-empty wait-chs)
         ["<li>waiting...<ul>"
          (map (fn [kv] ["<li>" (second kv) "</li>"]) wait-chs)
          "</li></ul>"]
         [])
       "</ul>"
