--- a/Float.st	Sat Sep 04 20:14:41 1999 +0200
+++ b/Float.st	Sat Sep 04 20:20:55 1999 +0200
@@ -1753,10 +1753,10 @@
 
 !Float methodsFor:'tracing'!
 
-traceInto:aRequestor level:level
+traceInto:aRequestor level:level from:referrer
     "double dispatch into tracer, passing my type implicitely in the selector"
 
-    ^ aRequestor traceFloat:self level:level
+    ^ aRequestor traceFloat:self level:level from:referrer
 
 
 ! !
@@ -2026,6 +2026,6 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.102 1999-09-01 19:54:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.103 1999-09-04 18:19:56 cg Exp $'
 ! !
 Float initialize!