--- a/hedgewars/uLandTexture.pas	Tue Jan 26 04:13:37 2010 +0000
+++ b/hedgewars/uLandTexture.pas	Tue Jan 26 21:55:51 2010 +0000
@@ -115,10 +115,13 @@
 procedure FreeLand;
 var x, y: LongInt;
 begin
-for x:= 0 to LANDTEXARW -1 do
-	for y:= 0 to LANDTEXARH - 1 do
-		with LandTextures[x, y] do
-			FreeTexture(tex)
+	for x:= 0 to LANDTEXARW -1 do
+		for y:= 0 to LANDTEXARH - 1 do
+			with LandTextures[x, y] do
+			begin
+				FreeTexture(tex);
+				tex:= nil;
+			end;
 end;
 
 end.