--- a/Timestamp.st	Mon Jun 23 11:38:48 2014 +0200
+++ b/Timestamp.st	Mon Jun 23 11:38:58 2014 +0200
@@ -354,7 +354,6 @@
     "Modified: / 13.7.1999 / 12:30:26 / stefan"
 ! !
 
-
 !Timestamp class methodsFor:'private'!
 
 basicReadFrom:aStream
@@ -1313,7 +1312,7 @@
     stream skipSeparators.
 
     stream peek isLetter ifTrue:[
-        tzName := stream upToMatching:[:ch | ch isLetter not].
+        tzName := stream upToElementForWhich:[:ch | ch isLetter not].
 
         i := table indexOf:tzName.
         i ~~ 0 ifTrue:[ 
@@ -1483,7 +1482,6 @@
     "
 ! !
 
-
 !Timestamp methodsFor:'accessing'!
 
 day
@@ -2358,8 +2356,6 @@
     "
 ! !
 
-
-
 !Timestamp methodsFor:'testing'!
 
 isTimestamp
@@ -3148,11 +3144,11 @@
 !Timestamp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.152 2014-05-21 12:33:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.153 2014-06-23 09:38:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.152 2014-05-21 12:33:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.153 2014-06-23 09:38:58 cg Exp $'
 ! !