--- a/hedgewars/uGearsHandlers.pas	Thu Jul 19 20:34:21 2012 -0400
+++ b/hedgewars/uGearsHandlers.pas	Fri Jul 20 09:09:17 2012 +0400
@@ -40,7 +40,7 @@
 
 procedure NextAngle(Gear: PGear; dA: LongInt); inline;
 begin
-    Gear^.Angle := (LongInt(Gear^.Angle)     + dA) mod 4
+    Gear^.Angle := (LongInt(Gear^.Angle) + 4 + dA) mod 4
 end;
 
 procedure cakeStep(Gear: PGear);