--- a/FileBrowserV2.st	Tue Aug 26 23:40:07 2008 +0200
+++ b/FileBrowserV2.st	Tue Aug 26 23:41:27 2008 +0200
@@ -1854,16 +1854,18 @@
     self previewVisibleHolder addDependent:self.
 !
 
-onDirectory:aDirectoryPath
+onDirectory:aDirectoryPathOrNil
     |files|
 
     self createBuilder.
-    aDirectoryPath isCollection ifTrue:[
-        files := aDirectoryPath
-    ] ifFalse:[
-        files := Array with:aDirectoryPath.
+    aDirectoryPathOrNil notNil ifTrue:[
+        aDirectoryPathOrNil isCollection ifTrue:[
+            files := aDirectoryPathOrNil
+        ] ifFalse:[
+            files := Array with:aDirectoryPathOrNil.
+        ].
+        self currentFileNameHolder value:files.
     ].
-    self currentFileNameHolder value:files.
 !
 
 openOnDirectory:aDirectoryPath
@@ -1955,7 +1957,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.177 2008-08-20 17:53:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.178 2008-08-26 21:41:27 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!