diff -r 80f2a44becea -r f730c8a9777b hedgewars/HHHandlers.inc
--- 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;