--- a/hedgewars/GSHandlers.inc	Sun Dec 04 00:52:47 2011 +0300
+++ b/hedgewars/GSHandlers.inc	Sun Dec 04 00:56:07 2011 +0300
@@ -4940,7 +4940,7 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepStructure(Gear: PGear);
 var 
-    x, y, i: LongInt;
+    x, y: LongInt;
     HH: PHedgehog;
     t: PGear;
 begin