--- a/Array.st	Fri May 21 16:01:10 2004 +0200
+++ b/Array.st	Thu May 27 16:27:19 2004 +0200
@@ -1626,16 +1626,22 @@
 !
 
 storeArrayElementOn:aStream
-    "store as element of an array. Omit the leading '#'"
+    "Store as element of an array. Omit the leading '#'"
 
     self isLiteral ifTrue:[
         aStream nextPut:$(.
-        self do:[:element | element storeArrayElementOn:aStream]
-             separatedBy:[aStream space].
-        aStream nextPut:$)
-    ] ifFalse:[
-        super storeOn:aStream
-    ]
+        self 
+            do:[:element | element storeArrayElementOn:aStream]
+            separatedBy:[aStream space].
+        aStream nextPut:$).
+        ^ self.
+    ].
+    super storeArrayElementOn:aStream
+
+    "
+     #(1 2 3 4 5) storeOn:Transcript   
+     #(1 2 3 4 5) storeArrayElementOn:Transcript   
+    "
 !
 
 storeOn:aStream
@@ -2429,5 +2435,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.132 2004-01-29 13:20:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.133 2004-05-27 14:27:19 cg Exp $'
 ! !

--- a/ByteArray.st	Fri May 21 16:01:10 2004 +0200
+++ b/ByteArray.st	Thu May 27 16:27:19 2004 +0200
@@ -3039,21 +3039,21 @@
 !
 
 storeArrayElementOn:aStream
-    "append a printed representation from which the receiver can be
-     reconstructed to aStream. (reimplemented to make it look better)"
+    "Store as element of an array. Omit the leading '#'"
 
     self class == ByteArray ifTrue:[    "/ care for subclasses
-        aStream nextPutAll:'['.
+        aStream nextPut:$[.
         self 
             do:[:byte | byte storeOn:aStream]
             separatedBy:[aStream space].
-        aStream nextPutAll:']'.
+        aStream nextPut:$].
         ^ self
     ].
-    ^ self storeOn:aStream
+    super storeArrayElementOn:aStream
 
     "
      #[1 2 3 4 5] storeOn:Transcript   
+     #[1 2 3 4 5] storeArrayElementOn:Transcript   
 
      #[1 2 3 4 5] storeString            
      #[1 2 3 4 5] displayString        
@@ -3335,5 +3335,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.163 2004-03-11 09:12:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.164 2004-05-27 14:27:11 cg Exp $'
 ! !

--- a/Symbol.st	Fri May 21 16:01:10 2004 +0200
+++ b/Symbol.st	Thu May 27 16:27:19 2004 +0200
@@ -225,7 +225,6 @@
     "
 ! !
 
-
 !Symbol methodsFor:'accessing'!
 
 basicAt:index put:something
@@ -560,7 +559,7 @@
 
 storeArrayElementOn:aStream
     "store myself on a stream.
-     i am stored as an array element, so the '#' may be omitted.
+     I am stored as an array element, so the '#' may be omitted sometimes.
      Take care for special symbols"
 
     |storeString|
@@ -746,5 +745,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.75 2003-11-19 16:47:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.76 2004-05-27 14:27:03 cg Exp $'
 ! !