--- a/Number.st	Wed Sep 01 22:00:25 1999 +0200
+++ b/Number.st	Wed Sep 01 22:01:00 1999 +0200
@@ -574,13 +574,6 @@
 
 !Number methodsFor:'testing'!
 
-isLiteral
-    "return true, if the receiver can be used as a literal
-     (i.e. can be used in constant arrays)"
-
-    ^ true
-!
-
 isNumber
     "return true, if the receiver is a kind of number"
 
@@ -595,6 +588,16 @@
     "Modified: 18.7.1996 / 12:40:49 / cg"
 ! !
 
+!Number methodsFor:'tracing'!
+
+traceInto:aRequestor level:level
+    "double dispatch into tracer, passing my type implicitely in the selector"
+
+    ^ aRequestor traceNumber:self level:level
+
+
+! !
+
 !Number methodsFor:'truncation and rounding'!
 
 fractionPart
@@ -630,5 +633,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.51 1999-08-26 10:18:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.52 1999-09-01 20:01:00 cg Exp $'
 ! !