diff --git a/src/library/base/R/tapply.R b/src/library/base/R/tapply.R
index 47ac215845b..43712236d76 100644
--- a/src/library/base/R/tapply.R
+++ b/src/library/base/R/tapply.R
@@ -50,7 +50,7 @@ tapply <- function (X, INDEX, FUN = NULL, ..., default = NA, simplify = TRUE)
     ans <- lapply(X = ans[index], FUN = FUN, ...)
     ansmat <- array(
 	if (simplify && all(lengths(ans) == 1L)) {
-	    ans <- unlist(ans, recursive = FALSE, use.names = FALSE)
+	    ans <- do.call(c, ans)
 	    if(is.na(default) && is.atomic(ans))
 		vector(typeof(ans))
 	    else default