--- a/hedgewars/GSHandlers.inc	Thu Oct 15 19:13:08 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Oct 15 19:14:22 2009 +0000
@@ -2075,6 +2075,7 @@
 and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX)))
 or (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] = COLOR_INDESTRUCTIBLE) then
 	begin //out of time or exited ground
+    StopSound(sndPickhammer);
 	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
 	DeleteGear(Gear);
 	exit
@@ -2114,6 +2115,7 @@
 		exit;
 		end;
 
+    PlaySound(sndPickhammer, true, nil);
 	Gear^.doStep:= @doStepDrillDrilling;
 	dec(Gear^.Timer)
 	end