--- a/hedgewars/uAIAmmoTests.pas	Wed Jan 02 11:11:49 2013 +0100
+++ b/hedgewars/uAIAmmoTests.pas	Sun Jan 27 00:28:57 2013 +0100
@@ -1140,7 +1140,7 @@
 var i: Longword;
     v: LongInt;
 begin
-while (not TestColl(hwRound(Gear^.X), hwRound(Gear^.Y), 6)) and (Gear^.Y.Round < LAND_HEIGHT) do
+while (not TestColl(hwRound(Gear^.X), hwRound(Gear^.Y), 6)) and (Gear^.Y.Round < LongWord(LAND_HEIGHT)) do
     Gear^.Y:= Gear^.Y + _1;
 
 for i:= 0 to 2040 do