                                     {:msg (msg "place " c " advancement tokens on "
                                                (if (:rezzed target) (:title target) "a card"))
                                      :choices {:req #(or (= (:type %) "Agenda") (:advanceable %))}
-                                     :effect (effect (add-prop target :advance-counter c))} card nil)))}
+                                     :effect (effect (add-prop target :advance-counter c {:placed true}))} card nil)))}
 
    "Punitive Counterstrike"
    {:trace {:base 5 :msg (msg "do " (or (:stole-agenda runner-reg) 0) " meat damage")

                                                              (or (= (:advanceable %) "always")
                                                                  (and (= (:advanceable %) "while-rezzed") (:rezzed %))
                                                                  (= (:type %) "Agenda")))}
                                         :effect  (effect (add-prop :corp target :advance-counter c)
                                                          (add-prop :corp fr :advance-counter (- c))
                                                          (system-msg (str "moves " c " advancement tokens from "
                                                                           (if (:rezzed fr) (:title fr) "a card") " to "
                                                                           (if (:rezzed target) (:title target) "a card"))))}

                               (and (= (:advanceable %) "while-rezzed") (:rezzed %))
                               (= (:type %) "Agenda"))}
    :msg (msg "1 advancement tokens on " (count targets) " cards")
    :effect (req (doseq [t targets] (add-prop state :corp t :advance-counter 1 {:placed true})))}

   "Shipment from MirrorMorph"
   (let [shelper (fn sh [n] {:prompt "Select a card to install"
