 
 (defn about-dialog [props]
   [:dialog.mdl-dialog.mdl-dialog__wide {:id "about-dialog"}
-   [:h4.mdl-dialog__title "CLJS-WebREPL"]
+   [:h4.mdl-dialog__title (str "CLJS-WebREPL")]
    [:div.mdl-dialog__content
     [:p "A ClojureScript browser based REPL"]
     [:p (str "Using ClojureScript version " *clojurescript-version*)]
+    [:p
+     "Running: " (if (:running? @state) "Yes" "No") [:br]
+     "Ready: " (if (:ready? @state) "Yes" "No") [:br]
+     "Crashed: " (if (:crashed? @state) "Yes" "No")]
     [:h5 "License"]
     [:p
      "Copyright © 2016 Andrew Phillips, Dan Holmsand, Mike Fikes, David Nolen, Rich Hickey, Joel Martin & Contributors"]

      ;; Enter
      13 (do (eval-input state)
             (. event preventDefault))

      ;; Escape
      27 (do (swap! state clear-input)

(defn on-repl-result [state num [ns result]]
  (if num
    (swap! state #(-> %
                      (assoc :ns ns :ready? true)
                      (update-in [:history num] assoc :result result)))
    (swap! state assoc :ns ns :ready? true)))

(defn on-repl-print [state num [s]]
  (when num
