--- a/Boolean.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Boolean.st	Sat Sep 04 20:20:55 1999 +0200
@@ -186,10 +186,10 @@
 
 !Boolean methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceBoolean:self level:level
+    ^ aRequestor traceBoolean:self level:level from:referrer
 
 
 ! !
@@ -197,5 +197,5 @@
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.23 1999-09-01 19:56:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.24 1999-09-04 18:20:45 cg Exp $'
 ! !