--- a/Filename.st	Thu Jun 12 22:34:45 2003 +0200
+++ b/Filename.st	Thu Jun 12 22:35:43 2003 +0200
@@ -3713,10 +3713,10 @@
     ].
     rest := p copyFrom:(index+1).
     (rest = '.') ifTrue:[
-        ^ (self class named:(p copyTo:(index-1))) directoryName.
+        ^ (self class named:(p copyTo:(index-1))).
     ].
     (rest = '..') ifTrue:[
-        ^ (self class named:(p copyTo:(index-1))) directory directoryName
+        ^ (self class named:(p copyTo:(index-1))) directoryName
     ].
     index == 1 ifTrue:[
         ^ '/'
@@ -3737,6 +3737,8 @@
      '..' asFilename directoryPathName       
      '../..' asFilename directoryName     
      '../..' asFilename directoryPathName     
+     '/foo/bar/baz/..' asFilename directoryName     
+     '/foo/bar/baz/.' asFilename directoryName     
     "
 
     "Modified: / 7.9.1995 / 10:42:03 / claus"
@@ -4924,7 +4926,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.259 2003-06-12 20:34:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.260 2003-06-12 20:35:43 cg Exp $'
 ! !
 
 Filename initialize!