--- a/hedgewars/uGears.pas	Wed Nov 12 22:47:43 2014 +0900
+++ b/hedgewars/uGears.pas	Fri Nov 14 17:00:47 2014 +0300
@@ -567,7 +567,8 @@
 end;
 
 procedure AddMiscGears;
-var p,i,j,rx, ry, unplaced: Longword;
+var p,i,j, unplaced: Longword;
+    rx, ry: LongInt;
     rdx, rdy: hwFloat;
     Gear: PGear;
 begin
@@ -644,7 +645,7 @@
         begin
         rx:=GetRandom(snowRight - snowLeft);
         ry:=GetRandom(750);
-        AddGear(rx + snowLeft, LAND_HEIGHT + ry - 1300, gtFlake, 0, _0, _0, 0)
+        AddGear(rx + snowLeft, LongInt(LAND_HEIGHT) + ry - 1300, gtFlake, 0, _0, _0, 0)
         end
 end;