--- a/hedgewars/HHHandlers.inc	Fri Sep 09 21:31:39 2011 +0200
+++ b/hedgewars/HHHandlers.inc	Fri Sep 09 18:30:40 2011 -0400
@@ -1036,7 +1036,7 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepHedgehogFree(Gear: PGear);
-var prevState,i: Longword;
+var prevState: Longword;
 begin
 prevState:= Gear^.State;