--- a/hedgewars/uLand.pas	Thu Jul 08 23:34:25 2010 +0200
+++ b/hedgewars/uLand.pas	Sat Jul 10 02:02:37 2010 +0200
@@ -66,10 +66,11 @@
 
 procedure LogLandDigest;
 var s: shortstring;
-    adler: LongInt;
+    adler, i, tmp: LongInt;
 begin
 adler:= 1;
-Adler32Update(adler, @Land[0,0], sizeof(Land));
+for i:= 0 to LAND_HEIGHT-1 do
+    Adler32Update(adler, @Land[i,0], LAND_WIDTH);
 s:= 'M'+inttostr(adler);
 
 CheckLandDigest(s);