--- a/Workspace.st	Sun Apr 27 23:57:23 2014 +0200
+++ b/Workspace.st	Tue Apr 29 19:05:00 2014 +0200
@@ -1797,8 +1797,9 @@
                     ] ifFalse:[
                         (cls notNil
                           and:[ cls nameSpace notNil
-                          and:[ (nsClass := cls nameSpace at:nameOfGlobal) notNil
-                        ]]) notNil ifTrue:[
+                          and:[ nameOfGlobal knownAsSymbol
+                          and:[ (nsClass := cls nameSpace at:nameOfGlobal asSymbol) notNil
+                        ]]]) notNil ifTrue:[
                             "/ a namespace class
                             browserClass browseReferendsOf:nsClass name
                         ] ifFalse:[
@@ -2290,10 +2291,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.327 2014-04-23 00:32:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.328 2014-04-29 17:05:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.327 2014-04-23 00:32:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.328 2014-04-29 17:05:00 cg Exp $'
 ! !