+ aValue | size1 size2 newValue |
" catenate two arrays together "
size1 <- self size.
size2 <- aValue size.
newValue <- self class new: (size1 + size2).
1 to: size1 do: [ :i | newValue at: i put: (self at: i) ].
1 to: size2 do: [ :i | newValue at: (size1 + i) put: (aValue at: i)].
^ newValue