 
 (defn- apply-poison-effects
   [decision-maker-contents]
-  (update decision-maker-contents :hp #(- % (:poison-hp-damage game-parameters))))
+  (let [new-hp (- (:hp decision-maker-contents) (:poison-hp-damage game-parameters))]
+    ;; If the decision maker does not have enough health remaining, remove from arena
+    (if (pos? new-hp)
+      (assoc decision-maker-contents :hp new-hp)
+      (au/create-new-contents :open))))
 
 (defn update-decision-maker-with
   [decision-maker-contents


  (let [updated-desired-space (apply-collision-damage desired-space-contents)
        updated-decision-maker (apply-collision-damage decision-maker-contents)
        take-space? (can-safely-occupy-space? updated-desired-space)]
    (cond-> (update-collision-stats game-state
                                    desired-space-contents
                                    decision-maker-contents)
      take-space?
      (update-in [:game/frame :frame/arena]
                 #(au/update-cell-contents %
                                           desired-space-coords
                                           updated-decision-maker))
      take-space?
      (update-in [:game/frame :frame/arena]
                 #(au/update-cell-contents %
                                           decision-maker-coords
                                           (au/create-new-contents :open)))
      (not take-space?)
      (update-in [:game/frame :frame/arena]
                 #(au/update-cell-contents %
                                           desired-space-coords
                                           updated-desired-space))
      (not take-space?)
      (update-in [:game/frame :frame/arena]
                 #(au/update-cell-contents %
                                           decision-maker-coords

  (let [updated-decision-maker-contents (update-decision-maker-with decision-maker-contents
                                                                    desired-space-contents
                                                                    desired-space-metadata)
        is-player (gu/is-player? decision-maker-contents)
        wombat-died (and is-player
                         (not (gu/is-player? updated-decision-maker-contents)))]
    (-> game-state
        (update-in [:game/frame :frame/arena]
                   #(au/update-cell-contents %
