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

                                          (and (= (:advanceable %) "while-rezzed") (:rezzed %))
                                          (= (:type %) "Agenda"))}
                      :msg (msg "add " c " advancement tokens on a card")
                      :effect (effect (add-prop :corp target :advance-counter c))} card nil)))}

   "Shoot the Moon"
   {:choices {:req #(and (= (:type %) "ICE") (not (:rezzed %)))

                       [reveal r] (split-with (complement ice?) (get-in @state [:corp :deck]))
                       titles (->> (conj (vec reveal) (first r)) (filter identity) (map :title))]
                   (trash state side target {:cause :ability-cost})
                   (when (seq titles)
                     (system-msg state side (str "reveals " (clojure.string/join ", " titles) " from R&D")))
                   (if-let [ice (first r)]
                     (let [newice (assoc ice :zone (:zone target) :rezzed true)
