--- a/Date.st Fri Mar 26 13:05:10 2010 +0100
+++ b/Date.st Fri Mar 26 15:26:26 2010 +0100
@@ -538,7 +538,7 @@
fc == Character space ifTrue:[
"/ Skip most possible separator characters
"/ (if not enought, should check for isNationalAlphaNumeric instead)
- [(c := str peek) isSeparator or:[ '-.:,;/\|?<>[]{}()#@!!$&^+=~*' includes:c ] ] whileTrue:[ str next ].
+ [(c := str peek) isSeparator or:[ '-.:,;/\|?<>[]{}()#@!!$&^+=~*_"`' includes:c ] ] whileTrue:[ str next ].
] ifFalse:[
str skipSeparators.
str next == fc ifFalse:[^ exceptionBlock value].
@@ -3017,11 +3017,11 @@
!Date class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.134 2010-03-24 14:17:51 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.135 2010-03-26 14:26:26 fm Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.134 2010-03-24 14:17:51 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.135 2010-03-26 14:26:26 fm Exp $'
! !
Date initialize!