--- a/hedgewars/uGearsHandlers.pas	Fri Jul 20 15:39:13 2012 +0100
+++ b/hedgewars/uGearsHandlers.pas	Fri Jul 20 18:42:45 2012 +0400
@@ -35,12 +35,12 @@
 
 procedure PrevAngle(Gear: PGear; dA: LongInt); inline;
 begin
-    Gear^.Angle := (LongInt(Gear^.Angle) + 4 - dA) mod 4
+    Gear^.Angle := (Gear^.Angle - dA) and 3
 end;
 
 procedure NextAngle(Gear: PGear; dA: LongInt); inline;
 begin
-    Gear^.Angle := (LongInt(Gear^.Angle) + 4 + dA) mod 4
+    Gear^.Angle := (Gear^.Angle + dA) and 3
 end;
 
 procedure cakeStep(Gear: PGear);