--- a/hedgewars/uGears.pas	Tue Jan 07 22:08:02 2014 +0400
+++ b/hedgewars/uGears.pas	Wed Jan 08 00:13:12 2014 +0400
@@ -626,7 +626,11 @@
 
 if (not hasBorder) and cSnow then
     for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do
-        AddGear(LongInt(GetRandom(snowRight - snowLeft)) + snowLeft, LAND_HEIGHT + LongInt(GetRandom(750)) - 1300, gtFlake, 0, _0, _0, 0);
+        begin
+        ry:= LAND_HEIGHT + LongInt(GetRandom(750)) - 1300;
+        rx:= LongInt(GetRandom(snowRight - snowLeft)) + snowLeft;
+        AddGear(rx, ry, gtFlake, 0, _0, _0, 0);
+        end
 end;
 
 procedure AssignHHCoords;