            (swap! state
              (fn [state]
                (-> state
-                   (update-in [::rid rid ::nav-stack] conj params)
-                   (assoc-in [::rid rid ::object] [::oid ref-oid]))))
+                   (update-in [::tap-page rid ::nav-stack] conj params)
+                   (assoc-in [::tap-page rid ::object] [::oid ref-oid]))))
+           (refresh-ui [[::tap-page rid]])
            (add-new-nav-obj state rid ref-oid))}))))
 
 (defmutation nav-stack-jump [{:keys [rid oid idx] :as params}]

     (fn [{:keys [summary] :as msg}]
       (swap! state assoc-in [::oid oid :summary] (add-ts summary))
       ;; FIXME: don't rerender just yet?
       (refresh-ui [[::oid oid]])
       (maybe-fetch-initial-fragment state (get-in @state [::oid oid])))}))

(defn add-first [prev head max]

    (swap! state
      (fn [state]
        (-> state
            (assoc-in [::tap-page rid ::object] [::oid oid])
            (update-in [::tap-page rid ::nav-stack] subvec 0 idx))))
    ))

(defmutation switch-object-display [{wanted-display :display :keys [oid] :as params}]
