diff --git a/src/water_cmd.cpp b/src/water_cmd.cpp
--- a/src/water_cmd.cpp
+++ b/src/water_cmd.cpp
@@ -117,7 +117,7 @@ CommandCost CmdBuildShipDepot(DoCommandF
 
 	WaterClass wc1 = GetWaterClass(tile);
 	WaterClass wc2 = GetWaterClass(tile2);
-	CommandCost cost = CommandCost(EXPENSES_CONSTRUCTION, _price[PR_BUILD_DEPOT_SHIP]);
+	CommandCost cost = CommandCost(EXPENSES_T_SHIP_CON, _price[PR_BUILD_DEPOT_SHIP]);
 
 	bool add_cost = !IsWaterTile(tile);
 	CommandCost ret = Command<CMD_LANDSCAPE_CLEAR>::Do(flags | DC_AUTO, tile);
@@ -282,7 +282,7 @@ static CommandCost RemoveShipDepot(TileI
 		MakeWaterKeepingClass(tile2, GetTileOwner(tile2));
 	}
 
-	return CommandCost(EXPENSES_CONSTRUCTION, _price[PR_CLEAR_DEPOT_SHIP]);
+	return CommandCost(EXPENSES_T_SHIP_CON, _price[PR_CLEAR_DEPOT_SHIP]);
 }
 
 /**
@@ -294,7 +294,7 @@ static CommandCost RemoveShipDepot(TileI
  */
 static CommandCost DoBuildLock(TileIndex tile, DiagDirection dir, DoCommandFlag flags)
 {
-	CommandCost cost(EXPENSES_CONSTRUCTION);
+	CommandCost cost(EXPENSES_T_SHIP_CON);
 
 	int delta = TileOffsByDiagDir(dir);
 	CommandCost ret = EnsureNoVehicleOnGround(tile);
@@ -403,7 +403,7 @@ static CommandCost RemoveLock(TileIndex 
 		MarkCanalsAndRiversAroundDirty(tile + delta);
 	}
 
-	return CommandCost(EXPENSES_CONSTRUCTION, _price[PR_CLEAR_LOCK]);
+	return CommandCost(EXPENSES_T_SHIP_CON, _price[PR_CLEAR_LOCK]);
 }
 
 /**
@@ -449,7 +449,7 @@ CommandCost CmdBuildCanal(DoCommandFlag 
 		if (ta.w != 1 && ta.h != 1) return CMD_ERROR;
 	}
 
-	CommandCost cost(EXPENSES_CONSTRUCTION);
+	CommandCost cost(EXPENSES_T_SHIP_CON);
 
 	std::unique_ptr<TileIterator> iter;
 	if (diagonal) {
@@ -551,7 +551,7 @@ static CommandCost ClearTile_Water(TileI
 				if (remove) RemoveDockingTile(tile);
 			}
 
-			return CommandCost(EXPENSES_CONSTRUCTION, base_cost);
+			return CommandCost(EXPENSES_T_DEMOLITION, base_cost);
 		}
 
 		case WATER_TILE_COAST: {
@@ -568,9 +568,9 @@ static CommandCost ClearTile_Water(TileI
 				if (remove) RemoveDockingTile(tile);
 			}
 			if (IsSlopeWithOneCornerRaised(slope)) {
-				return CommandCost(EXPENSES_CONSTRUCTION, _price[PR_CLEAR_WATER]);
+				return CommandCost(EXPENSES_T_DEMOLITION, _price[PR_CLEAR_WATER]);
 			} else {
-				return CommandCost(EXPENSES_CONSTRUCTION, _price[PR_CLEAR_ROUGH]);
+				return CommandCost(EXPENSES_T_DEMOLITION, _price[PR_CLEAR_ROUGH]);
 			}
 		}