                      card nil)))}
 
    "Forked"
-   {:prompt "Choose a server" :choices (req servers) :effect (effect (run target nil card))}
+   {:prompt "Choose a server" :choices (req runnable-servers) :effect (effect (run target nil card))}
 
    "Frame Job"
    {:prompt "Choose an agenda to forfeit"

   "High-Stakes Job"
   {:prompt "Choose a server"
    :choices (req (let [unrezzed-ice #(seq (filter (complement rezzed?) (:ices (second %))))
                        ok-servs (filter unrezzed-ice (get-in @state [:corp :servers]))]
                    (map (comp zone->name first) ok-servs)))
    :effect (effect (run target {:end-run {:req (req (:successful run)) :msg " gain 12 [Credits]"
                                           :effect (effect (gain :runner :credit 12))}} card))}

   {:msg (msg "reveal cards in HQ: " (join ", " (map :title (:hand corp))))}

   "Exploratory Romp"
   {:prompt "Choose a server" :choices (req runnable-servers)
    :effect (effect (run target
                       {:replace-access
                        {:prompt "Advancements to remove from a card in or protecting this server?"
