# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1405037728 -7200
# Node ID 3b2057603c18ce6bdb5a97b76d43c36bf2c84749
# Parent  11c30978de3f88d9cb952a372feb8c716bd67060
class: Filename
changed: #makeLegalFilename

diff -r 11c30978de3f -r 3b2057603c18 Filename.st
--- a/Filename.st	Fri Jul 11 02:14:11 2014 +0200
+++ b/Filename.st	Fri Jul 11 02:15:28 2014 +0200
@@ -2012,9 +2012,7 @@
      actually, in Unix spaces are allowed - but it makes life
      so hard; therefore, replace them by underscores ...
     "
-    (nameString includes:Character space) ifTrue:[
-        nameString := nameString copyReplaceAll:(Character space) with:$_.
-    ].
+    nameString := nameString copyReplaceAll:(Character space) with:$_ ifNone:nameString.
     "
      need more - especially on SYS5.3 type systems, 
      we may want to contract the fileName to 14 characters.
@@ -6045,11 +6043,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.423 2014-07-10 19:51:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.424 2014-07-11 00:15:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.423 2014-07-10 19:51:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.424 2014-07-11 00:15:28 cg Exp $'
 ! !