--- a/HierarchicalFileList.st	Sat Nov 01 19:18:08 2008 +0100
+++ b/HierarchicalFileList.st	Mon Nov 03 12:20:50 2008 +0100
@@ -549,7 +549,7 @@
 !
 
 fileName:aFilename
-self halt:'unimplemented'.
+    self shouldImplement.
     contentsItem :=  DirectoryContents contentsItemForFileName:aFilename
 
 "/    fileName = aFilename ifFalse:[
@@ -688,7 +688,7 @@
 !HierarchicalFileList::HierarchicalFileItem methodsFor:'instance creation'!
 
 fileName:aFilename fileInfo:aFileInfoOrNil
-self halt:'unimplemented'.
+    self shouldImplement.
 "/    fileName := aFilename.
 "/    fileInfo := aFileInfoOrNil.
 ! !
@@ -1257,7 +1257,7 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.68 2008-10-20 14:55:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.69 2008-11-03 11:20:50 stefan Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!