--- a/HierarchicalFileList.st	Tue Feb 24 22:34:49 2004 +0100
+++ b/HierarchicalFileList.st	Wed Feb 25 08:24:49 2004 +0100
@@ -851,10 +851,14 @@
 label
     "returns the printable name, the baseName
     "
-    OperatingSystem isMSWINDOWSlike ifTrue:[
-        contentsItem fileName isRootDirectory ifTrue:[
-            ^ contentsItem fileName pathName
-        ]
+    parent isHierarchicalItem ifFalse:[
+        "no parent exists, thus we have to test for rootDirectory
+        "
+        OperatingSystem isMSWINDOWSlike ifTrue:[
+            contentsItem fileName isRootDirectory ifTrue:[
+                ^ contentsItem fileName pathName
+            ]
+        ].
     ].
     ^ contentsItem fileName baseName
 !
@@ -1252,7 +1256,7 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.50 2003-11-18 19:12:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.51 2004-02-25 07:24:49 ca Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!