--- a/HierarchicalFileList.st	Fri Feb 23 12:16:05 2007 +0100
+++ b/HierarchicalFileList.st	Fri Feb 23 12:16:51 2007 +0100
@@ -274,6 +274,8 @@
             ifFalse:[aIsDir].
     ].
     ^ sortBlock
+
+    "Modified: / 13-12-2006 / 15:38:45 / User"
 !
 
 sortBlock:aBlock
@@ -739,6 +741,12 @@
     ^ false
 !
 
+isDirectoryItem
+    ^ self isDirectory
+
+    "Created: / 23-02-2007 / 12:04:37 / User"
+!
+
 isRemoteDirectory
     ^ false
 !
@@ -1252,7 +1260,7 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.64 2007-01-26 14:00:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.65 2007-02-23 11:16:51 fm Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!