--- a/BrowserView.st	Fri Dec 14 10:29:06 2001 +0100
+++ b/BrowserView.st	Fri Dec 14 11:58:51 2001 +0100
@@ -5107,9 +5107,9 @@
     ].
 
     classMethodListView notNil ifTrue:[
-        sel := classMethodListView selectionValue string.
+        sel := classMethodListView selectionValue.
         sel notNil ifTrue:[
-            sel := self selectorFromClassMethodString:sel
+            sel := self selectorFromClassMethodString:sel string
         ]
     ].
     self doClassMenu:[:currentClass | aBlock value:currentClass value:sel]
@@ -14945,6 +14945,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.705 2001-12-14 09:09:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.706 2001-12-14 10:58:51 cg Exp $'
 ! !
 BrowserView initialize!