--- a/Boolean.st	Wed Sep 01 21:55:23 1999 +0200
+++ b/Boolean.st	Wed Sep 01 21:56:10 1999 +0200
@@ -48,7 +48,7 @@
     instances as being true or false).
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 "
 ! !
 
@@ -65,6 +65,16 @@
 
 !Boolean class methodsFor:'queries'!
 
+hasSharedInstances
+    "return true if this class has shared instances, that is, instances
+     with the same value are identical.
+     False is returned here, only redefined in classes which have unified
+     instances (or should be treated so)."
+
+    ^ true
+
+!
+
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned (for my two subclasses)."
@@ -80,8 +90,6 @@
     "return true, if the receiver has a special binary representation"
 
     ^ true
-
-    "Modified: / 2.11.1997 / 14:13:56 / cg"
 ! !
 
 !Boolean methodsFor:'converting'!
@@ -170,14 +178,24 @@
 !Boolean methodsFor:'queries'!
 
 isLiteral
-    "return true, if the receiver can be used as a literal
+    "return true, if the receiver can be used as a literal constant in ST syntax
      (i.e. can be used in constant arrays)"
 
     ^ true
 ! !
 
+!Boolean methodsFor:'tracing'!
+
+traceInto:aRequestor level:level
+    "double dispatch into tracer, passing my type implicitely in the selector"
+
+    ^ aRequestor traceBoolean:self level:level
+
+
+! !
+
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.22 1997-11-02 17:03:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.23 1999-09-01 19:56:10 cg Exp $'
 ! !