--- a/hedgewars/GSHandlers.inc	Mon Jan 22 18:32:00 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Tue Jan 23 16:59:05 2007 +0000
@@ -426,7 +426,7 @@
 end;
 
 ////////////////////////////////////////////////////////////////////////////////
-var BTPrevAngle, BTSteps: Longword;
+var BTPrevAngle, BTSteps: integer;
 
 procedure doStepBlowTorchWork(Gear: PGear);
 var HHGear: PGear;
@@ -440,12 +440,12 @@
 
 b:= false;
 
-if (HHGear^.Angle <> BTPrevAngle) then
+if abs(integer(HHGear^.Angle) - BTPrevAngle) > 7  then
    begin
    Gear^.dX:= hwSign(HHGear^.dX) * AngleSin(HHGear^.Angle) * _0_5;
    Gear^.dY:= AngleCos(HHGear^.Angle) * ( - _0_5);
    BTPrevAngle:= HHGear^.Angle;
-//   b:= true
+   b:= true
    end;
 
 if Gear^.Timer mod cHHStepTicks = 0 then
@@ -488,7 +488,7 @@
 procedure doStepBlowTorch(Gear: PGear);
 var HHGear: PGear;
 begin
-BTPrevAngle:= High(Longword);
+BTPrevAngle:= High(integer);
 BTSteps:= 0;
 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
 HHGear^.Message:= 0;