# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1448050783 -3600
# Node ID 5771812c3f5a0a000e757134db0c9d5806f30d6f
# Parent  165de5f0f8e292474fb475a98b761f725414fd32
#UI_ENHANCEMENT
class: Array
changed: #displayStringName
also print immutableArrays in their literal form

diff -r 165de5f0f8e2 -r 5771812c3f5a Array.st
--- 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$'
 ! !
+