--- a/hedgewars/GSHandlers.inc	Mon Aug 02 00:48:15 2010 +0200
+++ b/hedgewars/GSHandlers.inc	Mon Aug 02 01:07:51 2010 +0200
@@ -3594,7 +3594,7 @@
             doMakeExplosion(hwRound(Gear^.X) - 30 - r0, hwRound(Gear^.Y) + 40, 40 + r1, 0);
             doMakeExplosion(hwRound(Gear^.X) + 30 + r1, hwRound(Gear^.Y) + 40, 40 + r0, 0);
             doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 80 + r0, EXPLAutoSound);
-            for r0:= 0 to 10 do
+            for r0:= 0 to 4 do
                 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtNote);
             Gear^.dY := -_1;
             Gear^.Pos := Gear^.Pos + 1;