--- a/Boolean.st	Fri Mar 09 11:47:16 2001 +0100
+++ b/Boolean.st	Fri Mar 09 11:48:28 2001 +0100
@@ -86,7 +86,6 @@
     "Modified: 23.4.1996 / 15:58:22 / cg"
 ! !
 
-
 !Boolean methodsFor:'binary storage'!
 
 hasSpecialBinaryRepresentation
@@ -196,6 +195,16 @@
     ^ true
 ! !
 
+!Boolean methodsFor:'testing'!
+
+isBoolean
+
+    "
+    Return true, because it is a boolean.
+    "
+
+    ^ true.
+! !
 
 !Boolean methodsFor:'tracing'!
 
@@ -210,5 +219,5 @@
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.27 2000-07-18 08:57:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.28 2001-03-09 10:48:28 martin Exp $'
 ! !