--- a/Workspace.st	Fri Nov 09 17:16:56 2001 +0100
+++ b/Workspace.st	Fri Nov 09 18:50:16 2001 +0100
@@ -794,10 +794,15 @@
 browseImplementorsOfIt
     "open a browser on the implementors of the selected text"
 
-    self windowGroup withWaitCursorDo:[
-        (UserPreferences current systemBrowserClass)
-            browseImplementorsOf:self selectionAsString
-    ]
+    |sel|
+
+    sel := self selectionAsString.
+    sel size > 0 ifTrue:[
+        self windowGroup withWaitCursorDo:[
+            (UserPreferences current systemBrowserClass)
+                browseImplementorsOf:sel
+        ]
+    ].
 
     "Created: / 5.11.2001 / 17:32:23 / cg"
     "Modified: / 5.11.2001 / 17:32:38 / cg"
@@ -835,9 +840,14 @@
 browseReferencesToIt
     "open a browser on all references to the selected global"
 
-    self windowGroup withWaitCursorDo:[
-        (UserPreferences current systemBrowserClass)
-            browseReferendsOf:(self selectionAsString)
+    |sel|
+
+    sel := self selectionAsString.
+    sel size > 0 ifTrue:[
+        self windowGroup withWaitCursorDo:[
+            (UserPreferences current systemBrowserClass)
+                browseReferendsOf:sel
+        ].
     ].
 
     "Created: / 5.11.2001 / 17:32:23 / cg"
@@ -983,5 +993,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.95 2001-11-09 11:17:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.96 2001-11-09 17:50:16 cg Exp $'
 ! !