# HG changeset patch
# User yexo <yexo@openttd.org>
# Date 2010-09-17 15:16:19
# Node ID 04910cbe2b9cd84a69584442109c0e792158b00b
# Parent  aa568ec6ae5c13f7d48bbe54abf632fe0d35a987

(svn r20821) -Fix [FS#4129]: terraforming the land under objects could leave sloped or elevated sea tiles

diff --git a/src/landscape.cpp b/src/landscape.cpp
--- a/src/landscape.cpp
+++ b/src/landscape.cpp
@@ -627,6 +627,7 @@ CommandCost CmdLandscapeClear(TileIndex 
 			if ((flags & DC_NO_WATER) && HasTileWaterClass(tile) && IsTileOnWater(tile)) {
 				return_cmd_error(STR_ERROR_CAN_T_BUILD_ON_WATER);
 			}
+			if (do_clear && (flags & DC_EXEC)) DoClearSquare(tile);
 			return cost;
 		}
 	}