--- a/HierarchicalFileList.st	Tue Apr 08 16:41:06 2003 +0200
+++ b/HierarchicalFileList.st	Tue Apr 08 18:37:19 2003 +0200
@@ -725,6 +725,12 @@
 
 !HierarchicalFileList::HierarchicalFileItem methodsFor:'printing'!
 
+printOn:aStream
+    super printOn:aStream.
+    ' for: ' printOn:aStream.
+    self fileName printOn:aStream
+!
+
 printString
 
     ^ super printString, ' for: ', self fileName asString
@@ -1231,7 +1237,7 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.44 2003-04-08 13:38:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.45 2003-04-08 16:37:19 cg Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!