Combining the components of a character vector

Dear Help,
   Suppose I have a character vector.

x <- c("Bob", "loves", "Sally")

I want to combine it into a single string:  "Bob loves Sally" .
paste(x) yields:
paste(x)
[1] "Bob"   "loves" "Sally"

The following function combines the character vector into a string in the
way that I want, but it seems somewhat inelegant.

paste.vector <- function(x, ...) {
        output <- NULL
        for (i in 1:length(x)) output <- paste(output, x[i], ...)
        output  } #end of function definition

paste.vector(x)
[1] " Bob loves Sally"

Is there a more natural (no loop) way to do this in R?