--- a/hedgewars/uLandGraphics.pas	Sun Jan 27 17:04:54 2008 +0000
+++ b/hedgewars/uLandGraphics.pas	Sun Jan 27 17:27:13 2008 +0000
@@ -222,6 +222,8 @@
 
 if SDL_MustLock(LandSurface) then
    SDL_UnlockSurface(LandSurface);
+
+UpdateLandTexture
 end;
 
 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte);
@@ -252,6 +254,8 @@
 
 if SDL_MustLock(LandSurface) then
    SDL_UnlockSurface(LandSurface);
+
+UpdateLandTexture
 end;
 
 //
@@ -317,7 +321,9 @@
     end;
 
 if SDL_MustLock(LandSurface) then
-   SDL_UnlockSurface(LandSurface)
+   SDL_UnlockSurface(LandSurface);
+
+UpdateLandTexture
 end;
 
 function TryPlaceOnLand(cpX, cpY: LongInt; Obj: TSprite; Frame: LongInt; doPlace: boolean): boolean;