--- a/DirectoryContentsBrowser.st	Tue Oct 22 16:04:08 2002 +0200
+++ b/DirectoryContentsBrowser.st	Tue Oct 22 16:05:11 2002 +0200
@@ -1971,6 +1971,8 @@
     "returns the fileName
     "
     ^ fileName
+
+
 !
 
 fileName:aFilename
@@ -2665,17 +2667,22 @@
     | allItems |
 
     self modificationTaskStop.
-    modificationTime := directory modificationTime.
-    allItems := self readDirectoryItems.
-    filteredItems := self evaluateFilter:allItems.
-    filteredItems sort:directoryBrowser sortBlockHolder value.
+    directory notNil ifTrue:[
+        modificationTime := directory modificationTime.
+        allItems := self readDirectoryItems.
+        filteredItems := self evaluateFilter:allItems.
+        filteredItems sort:directoryBrowser sortBlockHolder value.
+        self modificationTaskStart.
+    ] ifFalse:[
+        allItems := OrderedCollection new.
+        filteredItems := OrderedCollection new.
+    ].
     directoryBrowser
         enqueueMessage:#value 
         for:[
                 directoryBrowser setBrowserItemList:filteredItems allItemsList:allItems
             ]
         arguments:#().
-    self modificationTaskStart.
 !
 
 directoryContentsChanged
@@ -2807,5 +2814,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.31 2002-10-21 15:17:04 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.32 2002-10-22 14:05:11 penk Exp $'
 ! !