--- a/hedgewars/GSHandlers.inc	Tue Oct 28 18:45:38 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Tue Oct 28 20:56:02 2008 +0000
@@ -925,13 +925,13 @@
 	begin
 	x:= hwRound(Gear^.X);
 	y:= hwRound(Gear^.Y);
-	DeleteGear(Gear);
 	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;
+	DeleteGear(Gear);
 	exit
 	end;