--- a/DirectoryContentsBrowser.st	Tue Jan 03 10:47:30 2017 +0100
+++ b/DirectoryContentsBrowser.st	Tue Jan 03 14:49:44 2017 +0100
@@ -1260,7 +1260,7 @@
 
     (showDir and:[self directory notNil and:[self directory isRootDirectory not]]) ifTrue:[
         locItems := OrderedCollection new.
-        directoryUpItem := DirectoryContentsBrowser itemClass fileName:(self directory construct:'..').
+        directoryUpItem := self class itemClass fileName:(self directory construct:'..').
         directoryUpItem notNil ifTrue:[
             locItems add:directoryUpItem.
         ].
@@ -2663,7 +2663,7 @@
     contents := DirectoryContents directoryNamed:directory.
 
     contents notEmptyOrNil ifTrue:[
-        itemClass := DirectoryContentsBrowser itemClass.
+        itemClass := self class itemClass.
         modificationTime := contents modificationTime.
 
         contents itemsDo:[:eachItem|