--- a/Filename.st Fri Jul 11 02:15:28 2014 +0200
+++ b/Filename.st Fri Jul 11 02:16:10 2014 +0200
@@ -926,7 +926,7 @@
filter out (invalid) separators in aFilenameString.
We recommend using #makeLegalFilename"
- ^ aFilenameString copyReplaceAll:(Character space) with:$_.
+ ^ aFilenameString copyReplaceAll:(Character space) with:$_ ifNone:aFilenameString.
"Created: / 1.11.1997 / 12:39:50 / cg"
"Modified: / 18.7.1998 / 22:53:24 / cg"
@@ -6043,11 +6043,11 @@
!Filename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.424 2014-07-11 00:15:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.425 2014-07-11 00:16:10 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.424 2014-07-11 00:15:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.425 2014-07-11 00:16:10 cg Exp $'
! !