--- a/CharacterArray.st	Mon Jun 08 18:41:14 2009 +0200
+++ b/CharacterArray.st	Wed Jun 10 16:45:35 2009 +0200
@@ -950,7 +950,7 @@
 "/        "store a space instead"
 "/        ^ super basicAt:index put:(Character space)
 "/    ].
-    ^ super at:index put:(Character value:aByte)
+    ^ self basicAt:index put:(Character value:aByte)
 
     "
      'hello' copy at:1 put:$H asciiValue; yourself
@@ -5745,7 +5745,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.394 2009-03-16 15:16:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.395 2009-06-10 14:45:35 stefan Exp $'
 ! !
 
 CharacterArray initialize!