--- a/hedgewars/uCollisions.pas	Tue Nov 19 22:15:40 2013 -0500
+++ b/hedgewars/uCollisions.pas	Fri Nov 22 15:23:28 2013 -0500
@@ -95,7 +95,7 @@
     while (t <> nil) and (t^.Kind <> gtMine) do 
         t:= t^.NextGear;
     if (t <> nil) then
-        DeleteGear(t)
+        t^.State:= t^.State or gmDelete
     end;
 end;