--- a/hedgewars/uLand.pas	Wed Jan 02 11:11:49 2013 +0100
+++ b/hedgewars/uLand.pas	Sun Jan 27 00:28:57 2013 +0100
@@ -523,11 +523,8 @@
 end;
 
 procedure LoadMap;
-var tmpsurf : PSDL_Surface;
-    s       : shortstring;
-    f       : textfile;
-    mapName : shortstring = '';
-
+var tmpsurf: PSDL_Surface;
+    mapName: shortstring = '';
 begin
 WriteLnToConsole('Loading land from file...');
 AddProgress;
@@ -635,7 +632,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;