diff -r a1eb7555f439 -r 47cc28299baa hedgewars/uCollisions.pas
--- a/hedgewars/uCollisions.pas	Mon Aug 15 10:16:18 2011 -0400
+++ b/hedgewars/uCollisions.pas	Mon Aug 15 20:18:18 2011 +0400
@@ -84,8 +84,9 @@
 if (Count > (MAXRECTSINDEX-20)) then
     begin
     t:= GearsList;
-    while (t <> nil) and (t^.Kind <> gtMine) do t:= t^.NextGear;
-    if (t <> nil) and (t^.Kind = gtMine) then DeleteGear(t)
+    while (t <> nil) and (t^.Kind <> gtMine) do 
+        t:= t^.NextGear;
+    if (t <> nil) then DeleteGear(t)
     end;
 end;