copy-on-modify: copy created when an object with single name gets modified

Question

why does y get copied when I modify the y like this: y[[3]]] <- 5L? The book Advanced R says it shouldn\'t be copied.

x <- c(1, 2, 3)
cat(tracemem(x), &