--- a/hedgewars/uGears.pas	Tue Aug 03 12:52:21 2010 +0100
+++ b/hedgewars/uGears.pas	Tue Aug 03 14:19:47 2010 +0200
@@ -203,7 +203,8 @@
             @doStepSineGunShot,
             @doStepFlamethrower,
             @doStepSMine,
-            @doStepPoisonCloud
+            @doStepPoisonCloud,
+            @doStepHammer
             );
 
 procedure InsertGearToList(Gear: PGear);
@@ -434,6 +435,7 @@
                 gear^.Friction:= _0_08
                 end;
         gtWhip: gear^.Radius:= 20;
+      gtHammer: gear^.Radius:= 20;
     gtKamikaze: begin
                 gear^.Health:= 2048;
                 gear^.Radius:= 20