--- a/Array.st	Sat Sep 04 20:14:34 1999 +0200
+++ b/Array.st	Sat Sep 04 20:14:41 1999 +0200
@@ -2381,8 +2381,18 @@
     ^ false
 ! !
 
+!Array methodsFor:'tracing'!
+
+traceInto:aRequestor level:level from:referrer
+    "double dispatch into tracer, passing my type implicitely in the selector"
+
+    ^ aRequestor traceArray:self level:level from:referrer
+
+
+! !
+
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.119 1999-09-01 20:02:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.120 1999-09-04 18:14:41 cg Exp $'
 ! !