--- a/hedgewars/HHHandlers.inc	Sat Sep 24 17:12:46 2011 +0200
+++ b/hedgewars/HHHandlers.inc	Sat Sep 24 22:16:49 2011 +0400
@@ -1017,7 +1017,7 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepHedgehogFree(Gear: PGear);
-var prevState, i: Longword;
+var prevState: Longword;
 begin
 prevState:= Gear^.State;