--- a/hedgewars/uGearsHandlersMess.pas	Sat Nov 29 14:57:07 2014 -0500
+++ b/hedgewars/uGearsHandlersMess.pas	Sat Nov 29 15:30:33 2014 -0500
@@ -3083,12 +3083,9 @@
 end;
 
 procedure doStepCake(Gear: PGear);
-var
-    HHGear: PGear;
 begin
     AllInactive := false;
 
-    HHGear := Gear^.Hedgehog^.Gear;
     Gear^.CollisionMask:= lfNotCurrentMask;
 
     Gear^.dY:= cMaxWindSpeed * 100;