--- a/FileBrowserV2.st	Wed Sep 05 21:14:58 2012 +0200
+++ b/FileBrowserV2.st	Thu Sep 06 14:48:33 2012 +0200
@@ -115,19 +115,21 @@
 openOn:aFileOrDirectoryPath 
     "start a new FileBrowserV2 in a pathname"
 
-    |instance|
+    |fn|
 
-    aFileOrDirectoryPath asFilename isDirectory ifFalse:[
+    fn := aFileOrDirectoryPath asFilename.
+    fn isDirectory ifFalse:[
         ^ self openOnFileNamed:aFileOrDirectoryPath
+    ] ifTrue:[
+        ^ self openOn:fn withExtent:nil
     ].
 
-    instance := self on:aFileOrDirectoryPath asFilename.
-    instance open.
-    ^ instance.
-    
     "
-     FileBrowserV2 openOn:(OrderedCollection with:(Filename currentDirectory asAbsoluteFilename))
+     FileBrowserV2 openOn:(Filename currentDirectory asAbsoluteFilename)
+     FileBrowserV2 openOn:'Makefile'
     "
+
+    "Modified (comment): / 06-09-2012 / 14:46:54 / cg"
 !
 
 openOn:aDirectoryPath withExtent:extentOrNil
@@ -1999,7 +2001,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.199 2012-01-19 15:44:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.200 2012-09-06 12:48:33 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!