--- a/hedgewars/HHHandlers.inc	Sat Jun 25 17:22:35 2011 +0400
+++ b/hedgewars/HHHandlers.inc	Sun Jun 26 02:47:36 2011 +0200
@@ -467,6 +467,8 @@
 begin
 Gear^.Message:= gmDestroy;
 PlaySound(sndShotgunReload);
+if (Gear^.Pos and posCaseTrap) <> 0 then doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, HH^.Hedgehog, EXPLAutoSound)
+else
 case Gear^.Pos of
        posCaseUtility,
        posCaseAmmo: begin