I presumed shallowCopy for literal arrays / OrderedCollection should have been a true copy. Perhaps need to understand this..
shallowCopy
������ "Answer a copy of the receiver which shares the receiver's instance variables. It should never be overridden. I'm invoked from the copy template method. Subclasses that need to specialize the copy should specialize the postCopy hook method."
���� ...
������ <primitive: 148>
������ class := self class.
������ class isVariable
������ ������ ifTrue:
������ ������ ������ [...���� newObject :=
class basicNew: index. ....]
������ ������ ifFalse: [newObject :=
class basicNew].
������ ..
������ ������ whileTrue:
������ ������ ������ [newObject instVarAt: index put: (self instVarAt: index).
������ ������ ���� ...
������ ^ newObject