--- a/PCFilename.st	Mon Nov 05 12:45:13 2018 +0100
+++ b/PCFilename.st	Mon Nov 05 12:58:55 2018 +0100
@@ -82,17 +82,6 @@
 
 !PCFilename class methodsFor:'instance creation'!
 
-named:aString
-    "return a filename for a directory named aString.
-     This is the same as 'aString asFilename'."
-
-    |fn|
-
-    fn := super named:aString.
-    fn makeNonDOSName.
-    ^fn
-!
-
 newTemporaryIn:aDirectoryPrefix
     "return a new unique filename - use this for temporary files.
      redefined to always return an MSDOS 8+3 fileName,
@@ -987,10 +976,12 @@
 setName:aString
     "set the filename, convert unix directory separators to native separators"
 
-    nameString := aString copyReplaceAll:$/ with:$\
+    nameString := aString copyReplaceAll:$/ with:$\.
+    self makeNonDOSName.
 
     "Created: / 22-01-1998 / 17:32:45 / md"
     "Modified: / 16-07-2013 / 19:44:00 / cg"
+    "Modified: / 05-11-2018 / 12:52:25 / Stefan Vogel"
 ! !
 
 !PCFilename class methodsFor:'documentation'!