--- a/Time.st	Mon Jul 27 11:32:19 2009 +0200
+++ b/Time.st	Mon Jul 27 12:54:44 2009 +0200
@@ -199,9 +199,12 @@
                     hour > 12 ifTrue:[^ exceptionBlock value].
                     peekC := str peek
                 ] ifFalse:[
-                    peekC notNil ifTrue:[
-                        peekC isSeparator ifFalse:[^ exceptionBlock value].
-                    ]
+                    "/ cg: dont be too picky here - we do not care, what comes after the
+                    "/ time string. (Needed to be able to read rfc822 strings where a timezone
+                    "/ follows (-/+0700 GMT, for example)
+"/                    peekC notNil ifTrue:[
+"/                        peekC isSeparator ifFalse:[^ exceptionBlock value].
+"/                    ]
                 ].
             ]
         ].
@@ -724,5 +727,5 @@
 !Time class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.84 2008-11-04 13:51:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Time.st,v 1.85 2009-07-27 10:54:44 cg Exp $'
 ! !