--- a/hedgewars/GSHandlers.inc	Thu Jun 02 18:39:35 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Sat Jun 04 16:09:12 2011 -0400
@@ -3272,7 +3272,7 @@
         if ((Gear^.State and gstCollision) <> 0) then
         begin
             doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, Gear^.Hedgehog, EXPLAutoSound);
-            for i:= 0 to 32 do
+            for i:= 0 to 15 do
             begin
                 dX := AngleCos(i * 64) * _0_5 * (GetRandom + _1);
                 dY := AngleSin(i * 64) * _0_5 * (GetRandom + _1);