--- a/DirectoryContentsBrowser.st	Fri Nov 08 10:16:44 2002 +0100
+++ b/DirectoryContentsBrowser.st	Fri Nov 08 11:17:45 2002 +0100
@@ -2729,6 +2729,7 @@
 
     list := OrderedCollection new.
     directory notNil ifTrue:[
+        directory exists ifFalse:[ ^ list ].
         contents := DirectoryContents directoryNamed:directory.
         contents itemsDo:[:aItem|
             list add:(DirectoryContentsBrowser itemClass forInfoItem:aItem).
@@ -2752,5 +2753,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.51 2002-11-08 09:16:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.52 2002-11-08 10:17:45 cg Exp $'
 ! !