   (reify
     om/IRender
     (render [_]
-      (let [currently-selected? (= plan-id (pm/osx-plan-id plan))
+      (let [currently-selected? (= (name plan-id) (pm/osx-plan-id plan))
             updated-selection? (= plan-id chosen-plan-id)
             trial-start? (and trial-start?
                               (not (pm/osx? plan))

         :daily-build-count "more than 10"
         :max-minutes "25,000"
         :support-level "Priority support & Account manager"
         :team-size "unlimited"}]})

(defn osx-plans-list-ga [{:keys [plan org-settings]} owner]
  (reify
    om/IRender
    (render [_]
      (let [osx-plans (->> osx-plans
                           :ga
                           (map (partial merge {:plan plan
                                                :chosen-plan-id (:chosen-osx-plan-id org-settings)})))]
        (html
          [:div.osx-plans {:data-component `osx-plans-list-ga}
           [:fieldset

                :on-click new-plan-fn}
               plan-img])))))))
(def osx-plans
  {:ga {:seed
        {:plan-id :seed
         :title "SEED"
         :price 39
         :container-count "2"
