--- 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 $'
 ! !