                                          :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 "
-                                                                           (if (:rezzed fr) (:title fr) "a card") " to "
-                                                                           (if (:rezzed target) (:title target) "a card"))))}
+                                                                           (card-str state fr) " to " (card-str state target))))}
                                         tol nil)))}
                       card nil)))}
 


   "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)))}



   "Restoring Face"
   {:prompt "Choose a Sysop, Executive or Clone to trash"
    :msg (msg "trash " (card-str state target) " to remove 2 bad publicity")
    :choices {:req #(and (:rezzed %)
                         (or (has? % :subtype "Clone") (has? % :subtype "Executive")
                             (has? % :subtype "Sysop")))}
