named.elements <-
function(x)
{
	n <- names(x)
	if(is.null(n)) NULL
	else !is.na(n)
}
