--- a/Array.st	Tue Nov 09 13:54:57 2010 +0000
+++ b/Array.st	Tue Nov 09 16:24:28 2010 +0000
@@ -1653,37 +1653,11 @@
 
 !Array methodsFor:'printing & storing'!
 
-displayString
-    "return a printed representation of the receiver for displaying"
-
-    |s|
-
-    (self isLiteral) ifTrue:[
-	s := WriteStream on:String new.
-	s writeLimit:5000.
-
-	WriteStream writeErrorSignal handle:[:ex |
-	    s writeLimit:nil.
-	    s nextPutAll:' ...'
-	] do:[
-	    s nextPutAll:'#('.
-	    self 
-		do:[:each | s nextPutAll:each displayString.]
-		separatedBy:[s space]
-	].
-	s writeLimit:nil.
-	s nextPutAll:')'.
-	^ s contents
+displayStringName
+    self class == Array ifTrue:[
+        ^ '#'
     ].
-    ^ super displayString
-
-    "
-     #(1 2 3 4) displayString
-     #(1 2 3 4) printString  
-     (Array new:10000) displayString    
-    "
-
-    "Modified: 12.9.1997 / 22:03:18 / cg"
+    ^ super displayStringName.
 !
 
 printOn:aStream
@@ -2553,16 +2527,17 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Array.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Array.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Array.st,v 1.148 2009/11/05 16:25:19 stefan Exp '
+    ^ 'Header: /cvs/stx/stx/libbasic/Array.st,v 1.149 2010-09-21 06:57:51 stefan Exp '
 !
 
 version_SVN
-    ^ '$Id: Array.st 10544 2010-07-12 16:20:36Z vranyj1 $'
+    ^ '$Id: Array.st 10590 2010-11-09 16:24:28Z vranyj1 $'
 ! !
 
 
 
+