--- a/hedgewars/uCollisions.pas	Mon May 17 09:45:46 2010 +0000
+++ b/hedgewars/uCollisions.pas	Mon May 17 15:42:48 2010 +0000
@@ -214,7 +214,7 @@
              begin
              with cGear^ do
                   begin
-                  dX:= Gear^.dX;
+                  if (Kind <> gtExplosives) or ((State and gsttmpflag) <> 0) then dX:= Gear^.dX;
                   dY:= Gear^.dY * _0_5;
                   State:= State or gstMoving;
                   Active:= true
@@ -266,7 +266,7 @@
              begin
              with cGear^ do
                   begin
-                  dX:= Gear^.dX * _0_5;
+                  if (Kind <> gtExplosives) or ((State and gsttmpflag) <> 0) then dX:= Gear^.dX * _0_5;
                   dY:= Gear^.dY;
                   State:= State or gstMoving;
                   Active:= true