--- a/hedgewars/uGearsHedgehog.pas	Mon Sep 30 00:21:28 2013 +0400
+++ b/hedgewars/uGearsHedgehog.pas	Sun Sep 29 19:03:15 2013 -0400
@@ -828,7 +828,6 @@
 var isFalling, isUnderwater: boolean;
     land: Word;
 begin
-WorldWrap(Gear);
 land:= 0;
 isUnderwater:= cWaterLine < hwRound(Gear^.Y) + Gear^.Radius;
 if Gear^.dX.QWordValue > 8160437862 then
@@ -1275,6 +1274,7 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepHedgehog(Gear: PGear);
 begin
+WorldWrap(Gear);
 CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel;
 if (Gear^.Message and gmDestroy) <> 0 then
     begin