    "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))}
+    :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"]


   "Bioroid Efficiency Research"
   {:choices {:req #(and (= (:type %) "ICE") (has? % :subtype "Bioroid") (not (:rezzed %)))}
    :msg (msg "rez " (:title target) " at no cost")
    :effect (effect (rez target {:no-cost true})
                    (host (get-card state target) (assoc card :zone [:discard] :seen true)))}


                                         :effect  (effect (add-prop :corp target :advance-counter c {:placed true})
                                                          (add-prop :corp fr :advance-counter (- c) {:placed true})
                                                          (system-msg (str "moves " c " advancement tokens from "
                                                                           (card-str state fr) " to " (card-str state target))))}
                                        tol nil)))}
                      card nil)))}

