                  :msg (msg "place 1 advancement token on " (card-str state target))
                  :choices {:req can-be-advanced?}
                  :cost [:credit 1] :effect (effect (add-prop target :advance-counter 1))}
-                {:label "Trace 2 - Give the Runner 1 tag"
-                 :trace {:base 2 :msg "give the Runner 1 tag" :effect (effect (tag-runner :runner 1))}}]}
+                (tag-trace 2)]}
 
    "Merlin"
    (grail-ice (do-net-damage 2))

   "Turnpike"
   {:abilities [{:msg "force the Runner to lose 1 [Credits]"
                 :effect (effect (lose :runner :credit 1))}
                {:label "Trace 5 - Give the Runner 1 tag"
                 :trace {:base 5 :msg "give the Runner 1 tag" :effect (effect (tag-runner :runner 1))}}]}

   "Tyrant"
   {:advanceable :while-rezzed :abilities [end-the-run]}


   "Muckraker"
   {:effect (effect (gain :bad-publicity 1))
    :abilities [(tag-trace 1)
                (tag-trace 2)
                (tag-trace 3)
                {:msg "end the run if the Runner is tagged" :req (req tagged)
                 :effect (effect (end-run))}]}

