--- a/UIPainter.st	Sat Feb 21 19:07:24 1998 +0100
+++ b/UIPainter.st	Sat Feb 21 19:24:50 1998 +0100
@@ -2211,12 +2211,12 @@
         spec majorKey isNil ifTrue:[
             ^ self warn:'Cannot find class (no majorKey specified)'.
         ].
-        ^ self warn:'Cannot find class'.
+        ^ self warn:'Cannot find class ', spec majorKey asBoldText, '!!'.
     ].
     sel := spec minorKey.
     meta := cls class whichClassIncludesSelector:sel.
     meta isNil ifTrue:[
-        ^ self warn:'Cannot find ''', sel, ''' in class ''', cls name, ''''
+        ^ self warn:'Cannot find selector #', (sel ? '') asBoldText, ' in class ', cls name asBoldText, '!!'
     ].
 
     self class openOnClass:meta soleInstance andSelector:spec minorKey.
@@ -3321,7 +3321,6 @@
     spec := WindowSpec new.
 
     spec fromView:(self canvas topView) callBack:nil.
-    spec name:(listOfNodes at:1) name string.
 
     windowSpec notNil ifTrue:[
         spec copyValuesFromSpec:windowSpec