--- a/hedgewars/GSHandlers.inc	Wed Aug 06 12:48:45 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Aug 07 07:21:18 2008 +0000
@@ -145,7 +145,10 @@
 	exit
 	end;
 CalcRotationDirAngle(Gear);
-if (Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving) then PlaySound(sndGrenadeImpact, false)
+if (Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving) then
+	if (hwAbs(Gear^.dX) > _0_1) or
+	   (hwAbs(Gear^.dY) > _0_1) then
+		PlaySound(sndGrenadeImpact, false)
 end;
 
 procedure doStepCluster(Gear: PGear);