--- a/hedgewars/GSHandlers.inc	Mon Nov 27 17:29:08 2006 +0000
+++ b/hedgewars/GSHandlers.inc	Tue Nov 28 17:14:39 2006 +0000
@@ -361,6 +361,7 @@
 dec(Gear.Timer);
 if (Gear.Timer = 0)or((Gear.Message and gm_Destroy) <> 0)or((HHGear.State and gstHHDriven) = 0) then
    begin
+   StopSound(sndPickhammer);
    DeleteGear(Gear);
    AfterAttack;
    exit
@@ -417,6 +418,7 @@
    end;
 DrawHLinesExplosions(@ar, 3, round(Gear.Y) - cHHRadius*2, 2, Pred(i));
 Gear.dY:= PHedgehog(Gear.Hedgehog).Gear.dY;
+PlaySound(sndPickhammer, true);
 doStepPickHammerWork(Gear);
 Gear.doStep:= doStepPickHammerWork
 end;