--- a/hedgewars/HHHandlers.inc	Sat Jan 27 14:06:29 2007 +0000
+++ b/hedgewars/HHHandlers.inc	Sat Jan 27 14:18:33 2007 +0000
@@ -133,7 +133,7 @@
 const StepTicks: LongWord = 0;
 
 procedure HedgehogStep(Gear: PGear);
-var PrevdX: integer;
+var PrevdX: LongInt;
 begin
 if ((Gear^.State and (gstAttacking or gstMoving or gstFalling)) = 0) then
    begin