--- a/Workspace.st	Thu Mar 16 09:21:19 2006 +0100
+++ b/Workspace.st	Thu Mar 16 15:25:38 2006 +0100
@@ -1018,11 +1018,11 @@
     selectedText := self selectionAsString.
     selectedText size > 0 ifTrue:[
         self windowGroup withWaitCursorDo:[
-            selector := Parser selectorInExpression:selectedText.
+            selector := SystemBrowser extractSelectorFrom:selectedText.
 
             browserClass := UserPreferences current systemBrowserClass.
 
-            (selector notNil and:[selector ~~ selectedText]) ifTrue:[
+            (selector notNil and:[selector ~= selectedText]) ifTrue:[
                 browserClass browseImplementorsOfAny:(Set with:selector with:selectedText)
             ] ifFalse:[
                 browserClass browseImplementorsOf:(selector ? selectedText)
@@ -1111,7 +1111,7 @@
     selectedText := self selectionAsString.
     selectedText size > 0 ifTrue:[
         self windowGroup withWaitCursorDo:[
-            selector := Parser selectorInExpression:selectedText.
+            selector := SystemBrowser extractSelectorFrom:selectedText.
             (UserPreferences current systemBrowserClass)
                 browseAllCallsOn:(selector ? selectedText)
         ]
@@ -1186,7 +1186,7 @@
                              commentSelection uncommentSelection ) 
         ] ifTrue:[
             s := self selectionAsString.
-            s2 := Parser selectorInExpression:s.
+            s2 := SystemBrowser extractSelectorFrom:s.
             s2 notNil ifTrue:[
                 s2 := s2 asSymbolIfInterned.
             ].
@@ -1315,5 +1315,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.158 2006-03-16 08:21:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.159 2006-03-16 14:25:38 cg Exp $'
 ! !