"dist2full" = function(dis)
{
	n <- attr(dis, "Size")
	full <- matrix(0, n, n)
	full[lower.tri(full)] <- dis
	full + t(full)
}