                 (apply-start-controllers reporter controllers commands-chan get-running start)
                 (apply-wake-controllers reporter controllers commands-chan get-running wake)))
     (call-handler-on-started-controllers app-db-atom reporter (concat start wake))
-    (send-route-changed-to-surviving-controllers app-db-atom reporter route-changed route-params)))
+    (send-route-changed-to-surviving-controllers app-db-atom reporter route-changed route-params))
+  (reporter :app :in nil :running-controllers (report-running-controllers app-db-atom) :info))
 
 (defn call-ssr-handler-on-started-controllers [app-db-atom reporter start ssr-handler-done-cb]
   (let [wait-chan (chan)

    (if controller
      (send-command-to reporter controller command-name command-args)
      (throw (ex-info "Trying to send command to a controller that is not running" {:controller controller-name :command command-name :args command-args})))))

(defn route-change-execution-plan [route-params running-controllers controllers]
  (let [plan {:stop          {}

          (recur (rest stop) new-app-db))
        app-db))))

(defn apply-start-or-wake-controllers
  [action reporter-action app-db reporter controllers commands-chan get-running start-or-wake]
  (loop [start-or-wake start-or-wake
         app-db app-db]
      (if-let [s (first start-or-wake)]
