   (swap! debug-state update-in [:current-user :admin] not))
 
 (defn reinstall-om! []
-  (install-om debug-state (find-app-container (find-top-level-node))))
+  (install-om debug-state (find-app-container (find-top-level-node)) (:comms @debug-state)))
 
 (defn refresh-css! []
   (let [is-app-css? #(re-matches #"/assets/css/app.*?\.css(?:\.less)?" (dommy/attr % :href))

        ws-tap (chan)
        errors-tap (chan)]
    (routes/define-routes! state)
    (install-om state container)

    (async/tap (:controls-mult comms) controls-tap)
    (async/tap (:nav-mult comms) nav-tap)

    mya))


(defn install-om [state container comms]
  (om/root
     app/app
     state
     {:target container
      :shared {:comms comms
               :timer-atom (setup-timer-atom)
               :_app-state-do-not-use state}}))

