   (reify
     om/IWillMount
     (will-mount [_]
-      (om/set-state! owner [:tool] :query)
+      (om/set-state! owner [:current-save-slot] 0)
+      (om/set-state! owner [:tool] :states)
       (om/set-state! owner [:current-query] "default")
-      (om/set-state! owner [:open?] true)
+      (om/set-state! owner [:open?] false)
       (om/set-state! owner [:query] (or (:expressions opts) [])))
     om/IDidUpdate
     (did-update [_ _ prev]

            [cljsjs.codemirror.mode.clojure :as cm-clj]
            [cljs.pprint :as pp]
            [cljs.reader :as reader]
            [dato.lib.core :as dato]
            [dato.debug.components.keyboard-listener :as keyboard]
            [om-bootstrap.panel :as bs-p]

                                   :property "stylesheet"
                                   :href     "/css/vendor/codemirror/codemirror.css"})
                        (dom/div {:className "editor"}))
             :timeline (dom/div
                        (dom/h3 (pr-str (get-in log [selected-state-idx :tx/intent])))
                        (dom/div
                         (dom/input {:type      "range"
