--- a/Workspace.st	Mon Dec 05 22:35:57 2011 +0100
+++ b/Workspace.st	Tue Dec 20 15:33:42 2011 +0100
@@ -1674,8 +1674,9 @@
             ifFalse:[
                 sub disable:#browseReferencesToIt.
             ].
-            (s isNil 
-            or:[ (SharedPool allSubclasses contains:[:pool | pool includesKey:s asSymbol]) not]) ifTrue:[
+            (s notNil 
+            and:[ s asSymbolIfInterned notNil
+            and:[ (SharedPool allSubclasses contains:[:pool | pool includesKey:s asSymbol]) ]]) ifFalse:[
                 sub disable:#browseSharedPoolOfIt.
             ].
 
@@ -1721,7 +1722,7 @@
     ^ m ? sub.
 
     "Modified: / 22-04-1998 / 21:49:06 / ca"
-    "Modified: / 15-01-2011 / 14:21:49 / cg"
+    "Modified: / 20-12-2011 / 11:22:20 / cg"
 !
 
 inspectIt
@@ -1897,5 +1898,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.238 2011-10-04 17:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.239 2011-12-20 14:33:42 cg Exp $'
 ! !