--- a/Timestamp.st	Thu Nov 09 09:58:18 2017 +0100
+++ b/Timestamp.st	Thu Nov 09 10:41:59 2017 +0100
@@ -465,6 +465,7 @@
     "
 ! !
 
+
 !Timestamp class methodsFor:'private'!
 
 basicReadFrom:aStream
@@ -496,7 +497,7 @@
     "/ consider this a kludge
     usFormat := (aStream peek == $/ ).
 
-    [(ch := aStream peekOrNil) notNil and:[ch isLetterOrDigit]] whileFalse:[aStream next].
+    [(ch := aStream peekOrNil) notNil and:[ch isLetterOrDigit not]] whileTrue:[aStream next].
     (ch notNil and:[ch isDigit]) ifTrue:[
         secondNumber := Integer readFrom:aStream onError:-1.
 
@@ -599,6 +600,8 @@
 
      UtcTimestamp basicReadFrom:'1995-10-20 12:10:00.000' readStream
     "
+
+    "Modified: / 09-11-2017 / 10:10:07 / cg"
 !
 
 readIso8601FormatFrom:aStringOrStream yearAlreadyRead:yearOrNil
@@ -1709,6 +1712,7 @@
     "
 ! !
 
+
 !Timestamp methodsFor:'accessing'!
 
 day
@@ -3080,6 +3084,8 @@
     "
 ! !
 
+
+
 !Timestamp methodsFor:'testing'!
 
 isLocalTimestamp