         (trigger-event state side :corp-turn-ends))
       (doseq [a (get-in @state [side :register :end-turn])]
         (resolve-ability state side (:ability a) (:card a) (:targets a)))
-      (swap! state assoc :end-turn true))))
+      (swap! state assoc :end-turn true)
+      (swap! state dissoc :turn-events))))
 
 (defn purge [state side]
   (let [rig-cards (apply concat (vals (get-in @state [:runner :rig])))

    (system-msg state side "stops looking at his deck and shuffles it")
    (system-msg state side "shuffles his deck")))

(load "cards")

  (doseq [{:keys [ability] :as e} (get-in @state [:events event])]
    (when-let [card (get-card state (:card e))]
      (when (or (not (:req ability)) ((:req ability) state side card targets))
        (resolve-ability state side ability card targets))))
  (swap! state update-in [:turn-events] #(cons [event targets] %))
  ;(system-msg state side (pr-str "EVENTS " (:turn-events @state)))
  )

(defn card-init [state side card]
  (let [cdef (card-def card)
