    "Back Channels"
    {:prompt "Choose an installed card in a server to trash" :choices {:req #(= (last (:zone %)) :content)}
     :effect (effect (gain :credit (* 3 (:advance-counter target))) (trash target))
-    :msg (msg "trash " (if (:rezzed target) (:title target) " a card") " and gain "
+    :msg (msg "trash " (card-str state target) " and gain "
               (* 3 (:advance-counter target)) " [Credits]")}
 
    "Bad Times"

                     {:choices {:req #(or (card-is? % :advanceable :always)
                                          (and (card-is? % :advanceable :while-rezzed) (:rezzed %))
                                          (= (:type %) "Agenda"))}
                      :msg (msg "place " c " advancement tokens on " (if (:rezzed target) (:title target) "a card"))
                      :effect (effect (add-prop :corp target :advance-counter c {:placed true}))} card nil)))}

   "Shoot the Moon"

   "Aggressive Negotiation"
   {:req (req (:scored-agenda corp-reg)) :prompt "Choose a card"
    :choices (req (cancellable (:deck corp) :sorted))
    :effect (effect (move target :hand) (shuffle! :deck))
    :msg "search R&D for a card and add it to HQ"}

   "An Offer You Cant Refuse"
   {:prompt "Choose a server" :choices ["HQ" "R&D" "Archives"]
