     (when (nil? system)
       (init mode))
     (if (contains? invalid-start-transitions state)
-      (log/error "System has already been started.")
+      (log/warn "System has already been started.")
       (do
         (alter-var-root #'system component/start)
         (alter-var-root #'state (fn [_] :started))))

(defn stop
  []
  (if (contains? invalid-stop-transitions state)
    (log/error "System already stopped.")
    (do
      (alter-var-root #'system
        (fn [s] (when s (component/stop s))))

    (init :default))
  ([mode]
    (if (contains? invalid-init-transitions state)
      (log/warn "System has aready been initialized.")
      (do
        (alter-var-root #'system
          (constantly ((components/init mode))))
