--- a/Filename.st	Thu Apr 09 15:38:29 1998 +0200
+++ b/Filename.st	Tue Apr 14 13:36:31 1998 +0200
@@ -635,10 +635,14 @@
     components first isEmpty ifTrue:[
         components at:1 put:(sep asString)
     ].
+    components last isEmpty ifTrue:[
+        ^ components copyWithoutLast:1
+    ].
     ^ components
 
     "
-     Filename components:'/foo/bar/baz' 
+     Filename components:'/foo/bar/baz'      
+     Filename components:'/' 
      Filename components:'foo/bar/baz'  
      Filename components:'foo/bar'  
      Filename components:'foo'     
@@ -2883,6 +2887,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.117 1998-02-25 18:53:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.118 1998-04-14 11:36:31 ca Exp $'
 ! !
 Filename initialize!