--- a/Symbol.st	Fri Mar 29 12:27:12 2019 +0100
+++ b/Symbol.st	Fri Mar 29 12:27:32 2019 +0100
@@ -204,6 +204,7 @@
 
 
 
+
 !Symbol methodsFor:'Compatibility-Squeak'!
 
 precedence
@@ -741,21 +742,6 @@
     ^ self asString
 !
 
-storeArrayElementOn:aStream
-    "store myself on a stream.
-     I am stored as an array element, so the '#' may be omitted sometimes.
-     Take care for special symbols"
-
-    |storeString|
-
-    storeString := self storeString.
-    (self == #true or:[self == #false or:[self == #nil or:[(storeString at:2) == $']]]) ifTrue:[
-	aStream nextPutAll:storeString.
-    ] ifFalse:[
-	aStream nextPutAll:self.
-    ].
-!
-
 storeOn:aStream
     "store myself on a stream"
 
@@ -807,6 +793,43 @@
     "
 ! !
 
+!Symbol methodsFor:'private array element printing'!
+
+displayArrayElementOn:aStream
+    "Display myself as an Array element on a stream.
+     I am displayed as an array element, so the '#' may be omitted sometimes.
+     Take care for special symbols"
+
+    self storeArrayElementOn:aStream.       "storeString is same as printString"
+
+    "Created: / 29-03-2019 / 12:00:50 / stefan"
+!
+
+printArrayElementOn:aStream
+    "Print myself as an Array element on a stream.
+     I am printed as an array element, so the '#' may be omitted sometimes.
+     Take care for special symbols"
+
+    self storeArrayElementOn:aStream.       "storeString is same as printString"
+
+    "Created: / 29-03-2019 / 11:56:25 / stefan"
+!
+
+storeArrayElementOn:aStream
+    "store myself on a stream.
+     I am stored as an array element, so the '#' may be omitted sometimes.
+     Take care for special symbols"
+
+    |storeString|
+
+    storeString := self storeString.
+    (self == #true or:[self == #false or:[self == #nil or:[(storeString at:2) == $']]]) ifTrue:[
+	aStream nextPutAll:storeString.
+    ] ifFalse:[
+	aStream nextPutAll:self.
+    ].
+! !
+
 !Symbol methodsFor:'queries'!
 
 species