--- a/Boolean.st	Wed Nov 18 13:16:46 2015 +0100
+++ b/Boolean.st	Wed Nov 18 13:17:52 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#Boolean
 	instanceVariableNames:''
 	classVariableNames:''
@@ -90,6 +92,9 @@
     "
 ! !
 
+
+
+
 !Boolean class methodsFor:'queries'!
 
 hasSharedInstances
@@ -100,6 +105,10 @@
     ^ true
 !
 
+isAbstract
+    ^ self == Boolean
+!
+
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned (for my two subclasses)."
@@ -110,6 +119,8 @@
 ! !
 
 
+
+
 !Boolean methodsFor:'blocked'!
 
 addDependent:someOne
@@ -193,6 +204,7 @@
     ^ self printString
 ! !
 
+
 !Boolean methodsFor:'testing'!
 
 isBoolean
@@ -228,13 +240,14 @@
     ^ aVisitor visitBoolean:self with:aParameter
 ! !
 
+
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.43 2014-07-09 16:21:02 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.43 2014-07-09 16:21:02 cg Exp $'
+    ^ '$Header$'
 ! !