--- a/AbstractFileApplicationNoteBookComponent.st	Wed Jan 28 14:11:24 2004 +0100
+++ b/AbstractFileApplicationNoteBookComponent.st	Wed Jan 28 14:13:02 2004 +0100
@@ -169,18 +169,24 @@
 
 " get the tab string from the application list on the class side "
 
-    | stream string|
+    | stream|
 
     self item notNil ifTrue:[
         stream := WriteStream on:''.
-        stream nextPutAll:self fileName baseName.
-        stream space.
-        self sameFileIndex notNil ifTrue:[
-            stream nextPutAll:self sameFileIndex asString.
+        self type = #directoryDescription ifTrue:[
+            stream nextPutAll:self fileName directory baseName.
+            stream space.
+            stream nextPut:$[.
+            stream nextPutAll:self fileName baseName.
+            stream nextPut:$].
+        ] ifFalse:[
+            stream nextPutAll:self fileName baseName.
+            stream space.
+            self sameFileIndex notNil ifTrue:[
+                stream nextPutAll:self sameFileIndex asString.
+            ].
         ].
-        string := stream contents.
-        stream close.
-        ^ string.
+        ^ stream contents.
     ].
     ^ nil
 !
@@ -234,5 +240,5 @@
 !AbstractFileApplicationNoteBookComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.9 2003-08-29 19:28:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileApplicationNoteBookComponent.st,v 1.10 2004-01-28 13:13:02 penk Exp $'
 ! !