--- a/CharacterArray.st	Wed Sep 01 22:03:44 1999 +0200
+++ b/CharacterArray.st	Wed Sep 01 22:04:16 1999 +0200
@@ -5378,9 +5378,19 @@
     "Modified: 12.5.1996 / 15:49:24 / cg"
 ! !
 
+!CharacterArray methodsFor:'tracing'!
+
+traceInto:aRequestor level:level
+    "double dispatch into tracer, passing my type implicitely in the selector"
+
+    ^ aRequestor traceCharacterArray:self level:level
+
+
+! !
+
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.165 1999-07-22 15:53:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.166 1999-09-01 20:04:16 cg Exp $'
 ! !
 CharacterArray initialize!