class: Filename
authorClaus Gittinger <cg@exept.de>
Fri, 11 Jul 2014 02:16:10 +0200
changeset 16762 32497763707a
parent 16761 3b2057603c18
child 16763 612c1f29a936
class: Filename changed: #filterSeps:
Filename.st
--- 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 $'
 ! !