--- a/hedgewars/uGearsHandlersMess.pas	Sun Jan 24 00:00:25 2016 +0100
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Jan 24 00:02:57 2016 +0100
@@ -86,7 +86,7 @@
 procedure doStepKamikaze(Gear: PGear);
 procedure doStepCakeExpl(Gear: PGear);
 procedure doStepCakeDown(Gear: PGear);
-procedure doStepCakeWork(Gear: PGear);
+procedure doStepCakeWalk(Gear: PGear);
 procedure doStepCakeUp(Gear: PGear);
 procedure doStepCakeFall(Gear: PGear);
 procedure doStepCake(Gear: PGear);
@@ -3248,7 +3248,7 @@
 end;
 
 
-procedure doStepCakeWork(Gear: PGear);
+procedure doStepCakeWalk(Gear: PGear);
 var
     tdx, tdy: hwFloat;
     cakeData: PCakeData;
@@ -3315,7 +3315,7 @@
                 end;
             CakeI := 0;
             end;
-        Gear^.doStep := @doStepCakeWork
+        Gear^.doStep := @doStepCakeWalk
         end
     else
         inc(Gear^.Pos)