--- a/hedgewars/GSHandlers.inc	Fri Jul 04 14:40:52 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Jul 04 19:25:00 2008 +0000
@@ -796,6 +796,7 @@
 procedure doStepExplosion(Gear: PGear);
 var i: LongWord;
 begin
+for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
 for i:= 0 to 15 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
 Gear^.doStep:= @doStepExplosionWork
 end;