--- a/hedgewars/GSHandlers.inc	Fri May 11 23:22:01 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Fri May 11 23:34:35 2012 +0400
@@ -3030,7 +3030,7 @@
 
 procedure doStepCakeWork(Gear: PGear);
 
-const dirs: array[0..3] of TPoint =   ((x: 0; y: -1), (x: 1; y: 0),(x: 0; y: 1),(x: -1; y: 0));
+const dirs: array[0..3] of TPoint =   ((X: 0; Y: -1), (X: 1; Y: 0),(X: 0; Y: 1),(X: -1; Y: 0));
 var 
     xx, yy, xxn, yyn: LongInt;
     dA: LongInt;