author | Claus Gittinger <cg@exept.de> |
Fri, 20 Nov 2015 21:19:43 +0100 | |
changeset 18937 | 5771812c3f5a |
parent 18936 | 165de5f0f8e2 |
child 18938 | 34feead204c2 |
--- a/Array.st Fri Nov 20 20:55:34 2015 +0100 +++ b/Array.st Fri Nov 20 21:19:43 2015 +0100 @@ -1771,8 +1771,10 @@ !Array methodsFor:'printing & storing'! displayStringName - self class == Array ifTrue:[ - ^ '#' + |cls| + + ((cls := self class) == Array or:[cls == ImmutableArray]) ifTrue:[ + ^ '#' ]. ^ super displayStringName. ! @@ -2700,3 +2702,4 @@ version_CVS ^ '$Header$' ! ! +