                          [:div.run-button
                           (cond-button "Run" (>= (:click me) 1)
                                        #(-> (om/get-node owner "servers") js/$ .toggle))
-                          (let [servers (concat (remote-list) ["HQ" "R&D" "Archives"])]
+                          (let [remotes (get-in cursor [:corp :servers :remote])
+                                servers (concat (remote-list remotes) ["HQ" "R&D" "Archives"])]
                             [:div.blue-shade.panel.servers-menu {:ref "servers"}
                              (map (fn [label]
                                     [:div {:on-click #(do (send-command "run" {:server label})

       (when current-strength [:div.darkbg.strength current-strength])
       (when (and (= zone ["hand"]) (#{"Agenda" "Asset" "ICE" "Upgrade"} type))
         (let [centrals ["HQ" "R&D" "Archives"]
               remotes (conj (remote-list) "New remote")
               servers (case type
                         ("Upgrade" "ICE") (concat remotes centrals)
                         ("Agenda" "Asset") remotes)]

               [:div.card-wrapper {:class (when (playable? c) "playable")}
                (om/build card-view c)])])])))

(defn zones [{:keys [player remotes]} cursor]
  (om/component
   (sab/html
    [:div.dashboard
     (om/build hand-view {:player player :remotes remotes})
     (om/build discard-view player)
     (om/build deck-view player)
     [:div.panel.blue-shade.identity
      (om/build card-view (:identity player))]])))

(defn cond-button [text cond f]
  (sab/html
