--- a/hedgewars/HHHandlers.inc	Sun Jul 01 20:16:19 2007 +0000
+++ b/hedgewars/HHHandlers.inc	Mon Jul 02 16:21:07 2007 +0000
@@ -253,10 +253,8 @@
 procedure doStepHedgehog(Gear: PGear); forward;
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepHedgehogMoving(Gear: PGear);
-var prevState: Longword;
-    isFalling: boolean;
+var isFalling: boolean;
 begin
-prevState:= Gear^.State;
 isFalling:= not TestCollisionYKick(Gear, 1);
 if isFalling then
    begin