--- a/hedgewars/GSHandlers.inc	Sun Sep 09 14:53:28 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Sep 10 20:00:58 2007 +0000
@@ -830,9 +830,12 @@
    x:= hwRound(Gear^.X);
    y:= hwRound(Gear^.Y);
    DeleteGear(Gear);
-   doMakeExplosion(x, y, 25, EXPLAutoSound);
-   for i:= 0 to 63 do
-       AddGear(x, y, gtFlame, 0, _0, _0, 0);
+   if Gear^.Kind = gtCase then
+      begin
+      doMakeExplosion(x, y, 25, EXPLAutoSound);
+      for i:= 0 to 63 do
+          AddGear(x, y, gtFlame, 0, _0, _0, 0);
+      end;
    exit
    end;