--- a/Workspace.st	Tue Mar 14 13:54:58 2006 +0100
+++ b/Workspace.st	Tue Mar 14 14:02:46 2006 +0100
@@ -1054,7 +1054,16 @@
 
     ^ self 
         do:codeToEvaluate 
-        withValueDo:[:result | result isBehavior ifTrue:[
+        withValueDo:[:result | 
+                               result isNil ifTrue:[
+                                  codeToEvaluate asCollectionOfWords size == 1 ifTrue:[
+                                    codeToEvaluate isUppercaseFirst ifTrue:[
+                                      Dialog information:(codeToEvaluate allBold , ' is unbound or nil').
+                                      ^ self.
+                                    ].
+                                  ]
+                               ].
+                               result isBehavior ifTrue:[
                                   result browserClass openInClass:result selector:selector
                                ] ifFalse:[
                                   result class browserClass openInClass:(result class) selector:nil
@@ -1306,5 +1315,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.156 2006-03-10 09:41:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.157 2006-03-14 13:02:46 cg Exp $'
 ! !