cbind <- function(...) {
	if(any.data.frame(...))
		data.frame(...)
	else
		.Internal(cbind(...))
}
