--- a/DirectoryContentsBrowser.st	Mon Mar 10 08:10:34 2008 +0100
+++ b/DirectoryContentsBrowser.st	Mon Mar 10 08:10:50 2008 +0100
@@ -3138,11 +3138,6 @@
     ^ permissionString
 !
 
-printString
-
-    ^ 'a DirectoryContentsItem [', fileName asString, ']' 
-!
-
 sizeInBytesString
     |locSize|
 
@@ -3211,8 +3206,10 @@
 
 printOn:aStream
     super printOn:aStream.
-    aStream space.
-    aStream nextPutAll:fileName baseName printString.
+    aStream 
+        nextPut:$[;
+        nextPutAll:fileName asString;
+        nextPut:$]. 
 ! !
 
 !DirectoryContentsBrowser::DirectoryContentsItem methodsFor:'private'!
@@ -3265,5 +3262,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.211 2008-02-05 13:34:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.212 2008-03-10 07:10:50 stefan Exp $'
 ! !