--- a/hedgewars/uLand.pas	Thu Jan 10 22:54:55 2013 +0400
+++ b/hedgewars/uLand.pas	Thu Jan 10 22:59:46 2013 +0400
@@ -523,7 +523,6 @@
 
 procedure LoadMap;
 var tmpsurf: PSDL_Surface;
-    s: shortstring;
     mapName: shortstring = '';
 begin
 WriteLnToConsole('Loading land from file...');
@@ -631,7 +630,7 @@
             if Land[y, x] <> 0 then
                 begin
                 inc(c);
-                if c > (LAND_WIDTH div 2) then // avoid accidental triggering
+                if c > LongWord((LAND_WIDTH div 2)) then // avoid accidental triggering
                     begin
                     hasBorder:= true;
                     break;