diff --git a/src/clj/game/cards/events.clj b/src/clj/game/cards/events.clj
index abae766e1d..2ba71f4761 100644
--- a/src/clj/game/cards/events.clj
+++ b/src/clj/game/cards/events.clj
@@ -2476,8 +2476,9 @@
    :events [{:event :purge
              :condition :hosted
              :async true
-             :effect (req (wait-for (trash state side card {:cause :purge
-                                                            :cause-card card})
+             :msg "trash itself"
+             :effect (req (wait-for (trash state :runner card {:cause :purge
+                                                               :cause-card card})
                                     (update-all-agenda-points state side)
                                     (effect-completed state side eid)))}
             (successful-run-replace-breach
diff --git a/src/clj/game/cards/programs.clj b/src/clj/game/cards/programs.clj
index a43446a0d9..c39d4b794c 100644
--- a/src/clj/game/cards/programs.clj
+++ b/src/clj/game/cards/programs.clj
@@ -765,6 +765,7 @@
                    (swap! state assoc-in [:corp :register :cannot-score] agendas)))}
    :events [{:event :purge
              :async true
+             :msg "trash itself"
              :effect (req (swap! state update-in [:corp :register] dissoc :cannot-score)
                           (trash state :runner eid card {:cause :purge
                                                          :cause-card card}))}
@@ -1146,8 +1147,9 @@
                        :value 1}]
    :events [{:event :purge
              :async true
-             :effect (effect (trash eid card {:cause :purge
-                                              :cause-card card}))}]})
+             :msg "trash itself"
+             :effect (req (trash state :runner eid card {:cause :purge
+                                                         :cause-card card}))}]})
 
 (defcard "Djinn"
   {:abilities [{:label "Search the stack for a virus program and add it to your Grip"
@@ -1247,8 +1249,9 @@
   {:events [(breach-access-bonus :rd 1)
             {:event :purge
              :async true
-             :effect (effect (trash eid card {:cause :purge
-                                              :cause-card card}))}]})
+             :msg "trash itself"
+             :effect (req (trash state :runner eid card {:cause :purge
+                                                         :cause-card card}))}]})
 
 (defcard "Expert Schedule Analyzer"
   (let [ability (successful-run-replace-breach
@@ -1602,7 +1605,8 @@
              :effect (effect (gain-credits :runner eid 1))}
             {:event :purge
              :async true
-             :effect (effect (trash eid card {:cause :purge :cause-card card}))}]})
+             :msg "trash itself"
+             :effect (req (trash state :runner eid card {:cause :purge :cause-card card}))}]})
 
 (defcard "Keyhole"
   (let [ability (successful-run-replace-breach
@@ -1677,8 +1681,9 @@
              :effect (effect (lose-credits :corp eid 1))}
             {:event :purge
              :async true
-             :effect (effect (trash eid card {:cause :purge
-                                              :cause-card card}))}]})
+             :msg "trash itself"
+             :effect (req (trash state :runner eid card {:cause :purge
+                                                         :cause-card card}))}]})
 
 (defcard "Leech"
   {:events [{:event :successful-run
@@ -2582,7 +2587,8 @@
      :events [(assoc ability :event :runner-turn-begins)
               {:event :purge
                :async true
-               :effect (effect (trash eid card {:cause :purge :cause-card card}))}]}))
+               :msg "trash itself"
+               :effect (req (trash state :runner eid card {:cause :purge :cause-card card}))}]}))
 
 (defcard "Torch"
   (auto-icebreaker {:abilities [(break-sub 1 1 "Code Gate")