--- a/CharArray.st	Sat May 04 01:10:31 1996 +0200
+++ b/CharArray.st	Mon May 06 11:04:27 1996 +0200
@@ -1358,11 +1358,19 @@
     "store a byte at given index.
      This is an ST/V compatibility method."
 
-    (aByte == 0) ifTrue:[
-	"store a space instead"
-	^ super basicAt:index put:(Character space)
-    ].
+"/    (aByte == 0) ifTrue:[
+"/        "store a space instead"
+"/        ^ super basicAt:index put:(Character space)
+"/    ].
     ^ super at:index put:(Character value:aByte)
+
+    "
+     'hello' copy at:1 put:$H asciiValue; yourself
+     'hello' copy byteAt:1 put:72; yourself 
+     'hello' copy byteAt:1 put:0; yourself 
+    "
+
+    "Modified: 6.5.1996 / 10:35:26 / cg"
 !
 
 replChar:oldChar with:newChar
@@ -3682,5 +3690,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.81 1996-04-27 11:35:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CharArray.st,v 1.82 1996-05-06 09:04:27 cg Exp $'
 ! !

--- a/CharacterArray.st	Sat May 04 01:10:31 1996 +0200
+++ b/CharacterArray.st	Mon May 06 11:04:27 1996 +0200
@@ -1358,11 +1358,19 @@
     "store a byte at given index.
      This is an ST/V compatibility method."
 
-    (aByte == 0) ifTrue:[
-	"store a space instead"
-	^ super basicAt:index put:(Character space)
-    ].
+"/    (aByte == 0) ifTrue:[
+"/        "store a space instead"
+"/        ^ super basicAt:index put:(Character space)
+"/    ].
     ^ super at:index put:(Character value:aByte)
+
+    "
+     'hello' copy at:1 put:$H asciiValue; yourself
+     'hello' copy byteAt:1 put:72; yourself 
+     'hello' copy byteAt:1 put:0; yourself 
+    "
+
+    "Modified: 6.5.1996 / 10:35:26 / cg"
 !
 
 replChar:oldChar with:newChar
@@ -3682,5 +3690,5 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.81 1996-04-27 11:35:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.82 1996-05-06 09:04:27 cg Exp $'
 ! !