Filename.st
changeset 23740 c9bcb6904e07
parent 23719 b0f496b3b72b
child 23837 219d06bf9d6d
--- a/Filename.st	Sun Feb 17 12:59:01 2019 +0100
+++ b/Filename.st	Tue Feb 19 13:32:50 2019 +0100
@@ -2112,13 +2112,7 @@
     "return the receiver converted to a filename with
      an absolute pathname."
 
-    |path|
-
-    path := self pathName.
-    self isRelative ifTrue:[
-        ^ (self species currentDirectory / path)
-    ].
-    ^ self species named:path
+    ^ self species named:self pathName
 
     "
      '.' asFilename
@@ -2129,6 +2123,7 @@
     "
 
     "Modified: / 31-01-2019 / 23:00:41 / Claus Gittinger"
+    "Modified: / 19-02-2019 / 12:29:37 / Stefan Vogel"
 !
 
 asAutoDeletedFilename