--- a/Boolean.st	Wed Jul 09 18:21:01 2014 +0200
+++ b/Boolean.st	Wed Jul 09 18:21:02 2014 +0200
@@ -90,8 +90,6 @@
     "
 ! !
 
-
-
 !Boolean class methodsFor:'queries'!
 
 hasSharedInstances
@@ -112,7 +110,6 @@
 ! !
 
 
-
 !Boolean methodsFor:'blocked'!
 
 addDependent:someOne
@@ -173,6 +170,7 @@
     ^ self
 ! !
 
+
 !Boolean methodsFor:'printing & storing'!
 
 printOn:aStream
@@ -225,6 +223,7 @@
 !Boolean methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
+    "dispatch for visitor pattern; send #visitBoolean:with: to aVisitor"
 
     ^ aVisitor visitBoolean:self with:aParameter
 ! !
@@ -232,9 +231,10 @@
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.42 2011-09-29 13:24:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.43 2014-07-09 16:21:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.42 2011-09-29 13:24:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.43 2014-07-09 16:21:02 cg Exp $'
 ! !
+