--- a/Workspace.st	Thu Nov 22 11:56:13 2001 +0100
+++ b/Workspace.st	Tue Nov 27 18:32:05 2001 +0100
@@ -940,7 +940,7 @@
             s notNil ifTrue:[
                 s := s asSymbolIfInterned.
             ].
-            s2 isNil ifTrue:[
+            (s2 isNil and:[s isNil]) ifTrue:[
                 sub disableAll:#(browseImplementorsOfIt browseSendersOfIt).
             ].
             (s isNil 
@@ -1035,5 +1035,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.103 2001-11-20 09:42:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.104 2001-11-27 17:32:05 cg Exp $'
 ! !