ByteArray.st
changeset 21483 582158f616ff
parent 21465 853e279fcd9e
child 21539 8533ab5cdbf5
--- a/ByteArray.st	Fri Feb 17 11:01:53 2017 +0100
+++ b/ByteArray.st	Fri Feb 17 11:02:06 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -2794,14 +2792,15 @@
 
     |cls|
 
-    ((cls := self class) == ByteArray or:[cls == ImmutableByteArray]) ifTrue:[
-	"/ care for subclasses
-	aStream nextPutAll:'#['.
-	self
-	    do:[:byte | byte storeOn:aStream]
-	    separatedBy:[aStream space].
-	aStream nextPutAll:']'.
-	^ self
+    cls := self class.
+    (cls == ByteArray or:[cls == ImmutableByteArray]) ifTrue:[
+        "/ care for subclasses
+        aStream nextPutAll:'#['.
+        self
+            do:[:byte | byte storeOn:aStream]
+            separatedBy:[aStream space].
+        aStream nextPut:$].
+        ^ self
     ].
     ^ super storeOn:aStream
 
@@ -2813,7 +2812,8 @@
      #[1 2 3 4 5] printString
     "
 
-    "Modified: 12.9.1997 / 22:11:33 / cg"
+    "Modified: / 12-09-1997 / 22:11:33 / cg"
+    "Modified: / 17-02-2017 / 10:50:37 / stefan"
 ! !
 
 !ByteArray methodsFor:'queries'!