--- a/hedgewars/GSHandlers.inc	Thu Oct 21 23:12:02 2010 +0200
+++ b/hedgewars/GSHandlers.inc	Sat Oct 23 14:10:23 2010 +0200
@@ -4111,6 +4111,7 @@
     graves := GearsNear(hh^.Gear, gtGrave, Gear^.Radius);
 
     if Length(graves) = 0 then begin
+        StopSound(Gear^.SoundChannel);
         Gear^.Timer := 250;
         Gear^.doStep := @doStepIdle;
         exit;
@@ -4140,6 +4141,7 @@
                 RecountTeamHealth(Phedgehog(resgear^.Hedgehog)^.Team);
             end;
         end;
+        StopSound(Gear^.SoundChannel);
         Gear^.Timer := 250;
         Gear^.doStep := @doStepIdle;
     end;
@@ -4162,6 +4164,7 @@
         end;
         Gear^.doStep := @doStepResurrectorWork;
     end else begin
+        StopSound(Gear^.SoundChannel);
         Gear^.Timer := 250;
         Gear^.doStep := @doStepIdle;
     end;