--- a/Boolean.st	Wed Mar 18 14:12:27 2020 +0100
+++ b/Boolean.st	Wed Mar 18 15:09:56 2020 +0100
@@ -71,11 +71,9 @@
 readFrom:aStringOrStream onError:exceptionBlock
     "return a new Boolean, reading a printed representation from aStringOrStream."
 
-    |str word|
+    |word|
 
-    str := aStringOrStream readStream.
-    str skipSeparators.
-    word := str nextAlphaNumericWord.
+    word := aStringOrStream readStream nextAlphaNumericWord.
     word = 'true' ifTrue:[^ true].
     word = 'false' ifTrue:[^ false].
     ^ exceptionBlock value.
@@ -92,8 +90,14 @@
      Boolean readFromString:'true xxx'   
      Boolean readFromString:'false xxx'  
     "
+
+    "Modified: / 18-03-2020 / 15:09:11 / Stefan Vogel"
 ! !
 
+
+
+
+
 !Boolean class methodsFor:'queries'!
 
 hasSharedInstances
@@ -118,6 +122,8 @@
 ! !
 
 
+
+
 !Boolean methodsFor:'blocked'!
 
 addDependent:someOne
@@ -201,6 +207,7 @@
     ^ self printString
 ! !
 
+
 !Boolean methodsFor:'testing'!
 
 isBoolean
@@ -236,6 +243,7 @@
     ^ aVisitor visitBoolean:self with:aParameter
 ! !
 
+
 !Boolean class methodsFor:'documentation'!
 
 version