--- a/hedgewars/uGears.pas	Thu Oct 15 13:51:11 2009 +0000
+++ b/hedgewars/uGears.pas	Thu Oct 15 15:28:19 2009 +0000
@@ -1960,7 +1960,7 @@
 
 			if (y - sy > Gear^.Radius * 2)
 				and (y < LAND_HEIGHT)
-				and (CheckGearsNear(x, y - Gear^.Radius, [gtHedgehog, gtMine, gtCase], 110, 110) = nil) then
+				and (CheckGearsNear(x, y - Gear^.Radius, [gtFlame, gtHedgehog, gtMine, gtCase], 110, 110) = nil) then
 				begin
 				ar[cnt].X:= x;
 				if withFall then ar[cnt].Y:= sy + Gear^.Radius
@@ -2005,4 +2005,4 @@
 finalization
 FreeGearsList;
 
-end.
\ No newline at end of file
+end.