--- a/Filename.st	Wed Jun 11 10:39:20 2003 +0200
+++ b/Filename.st	Thu Jun 12 22:34:45 2003 +0200
@@ -3712,8 +3712,11 @@
         ^ '.'
     ].
     rest := p copyFrom:(index+1).
-    (rest = '.' or:[rest = '..']) ifTrue:[
-        ^ self pathName asFilename directoryName
+    (rest = '.') ifTrue:[
+        ^ (self class named:(p copyTo:(index-1))) directoryName.
+    ].
+    (rest = '..') ifTrue:[
+        ^ (self class named:(p copyTo:(index-1))) directory directoryName
     ].
     index == 1 ifTrue:[
         ^ '/'
@@ -4921,7 +4924,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.258 2003-06-06 13:11:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.259 2003-06-12 20:34:45 cg Exp $'
 ! !
 
 Filename initialize!