--- a/FileBrowserV2.st	Wed May 07 11:15:24 2008 +0200
+++ b/FileBrowserV2.st	Wed May 07 11:15:28 2008 +0200
@@ -198,7 +198,7 @@
 
     FileBrowserV2 isNil ifTrue:[^ self].
 
-    action := [FileBrowserV2 open].
+    action := (MessageSend receiver:(Smalltalk at:self name) selector:#open).
 
     icon := [self defaultIcon]. "/ self defaultIcon magnifiedTo:28@28.
 
@@ -1923,7 +1923,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.174 2008-03-10 16:46:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.175 2008-05-07 09:15:28 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!