asByteArray | newArray index | newArray <- ByteArray new: self size. index <- 1. self do: [ :element | newArray at: index put: element. index <- index + 1 ]. ^ newArray