--- a/Tools__CodeView2.st	Tue Jun 03 18:54:51 2014 +0200
+++ b/Tools__CodeView2.st	Wed Jun 04 11:12:26 2014 +0200
@@ -1210,9 +1210,10 @@
     |senderBlock|
 
     selector isNil ifTrue:[^#()].
+    selector knownAsSymbol ifFalse:[^#()].
 
     "/ not exact, but much faster (looks for symbol only, does not parse code for real send)
-    senderBlock := SystemBrowser searchBlockForSymbol:selector.
+    senderBlock := SystemBrowser searchBlockForSymbol:selector asSymbol.
     senderBlock == false ifTrue:[ ^ #() ].
 
     ^ SystemBrowser
@@ -1228,6 +1229,7 @@
     "Created: / 26-12-2007 / 11:37:22 / janfrog"
     "Modified: / 30-06-2011 / 19:32:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 18-11-2011 / 14:58:19 / cg"
+    "Modified: / 04-06-2014 / 11:10:47 / az"
 ! !
 
 !CodeView2 methodsFor:'delegation'!
@@ -3908,15 +3910,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.148 2014-06-01 14:05:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.149 2014-06-04 09:12:26 az Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.148 2014-06-01 14:05:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.149 2014-06-04 09:12:26 az Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.148 2014-06-01 14:05:50 cg Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.149 2014-06-04 09:12:26 az Exp $'
 ! !