--- a/hedgewars/uLand.pas	Mon Sep 06 20:40:58 2010 +0100
+++ b/hedgewars/uLand.pas	Mon Sep 06 16:23:47 2010 -0400
@@ -66,7 +66,7 @@
 
 procedure LogLandDigest;
 var s: shortstring;
-    adler, i, tmp: LongInt;
+    adler, i: LongInt;
 begin
 adler:= 1;
 for i:= 0 to LAND_HEIGHT-1 do