diff -r 0afdba08a858 -r e9b3613cc3fb hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Tue Mar 16 19:28:15 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Tue Mar 16 21:39:55 2010 +0000
@@ -249,6 +249,14 @@
         gtWatermelon: makeHogsWorry(Gear^.X, Gear^.Y, 75);
         gtHellishBomb: makeHogsWorry(Gear^.X, Gear^.Y, 90);
     end;
+
+if (Gear^.Kind = gtBall) and ((Gear^.State and gstTmpFlag) <> 0) then
+    begin
+    CheckCollision(Gear);
+    if (Gear^.State and gstCollision) <> 0 then
+        doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLDontDraw or EXPLNoGfx);
+    end;
+
 if Gear^.Timer = 0 then
     begin
     case Gear^.Kind of
@@ -353,7 +361,7 @@
     exit
     end;
 
-if Gear^.Kind = gtMelonPiece then
+if (Gear^.Kind = gtMelonPiece) or (Gear^.Kind = gtBall) then
     CalcRotationDirAngle(Gear)
 else
     if (GameTicks and $1F) = 0 then