--- a/UIPainter.st	Thu Jul 23 16:13:10 1998 +0200
+++ b/UIPainter.st	Thu Jul 23 18:37:31 1998 +0200
@@ -1924,7 +1924,8 @@
     |cls loadedFromClass loadedFromSpec editor tableColumnsOrSelector|
 
     (cls := self resolveName:specClass) isNil ifTrue:[
-        self askForSaving ifFalse: [^self]
+        self askForSaving ifFalse: [^self].
+        cls := self resolveName:specClass.
     ].
 
     loadedFromSpec := loadedFromClass := false.
@@ -1973,7 +1974,8 @@
     |cls selectorOrMenu editor selectedSpec spec|
 
     (cls := self resolveName:specClass) isNil ifTrue:[
-        self askForSaving ifFalse: [^self]
+        self askForSaving ifFalse: [^self].
+        cls := self resolveName:specClass.
     ].
 
     cls notNil ifTrue:[
@@ -2047,12 +2049,16 @@
 
     |spec cls meta sel|
 
+    (self resolveName:specClass) isNil ifTrue:[
+        self askForSaving ifFalse: [^self]
+    ]. 
+
     spec := self specTool specification.
     cls := spec majorKey.
     cls isNil ifTrue:[
         cls := specClass.
     ].
-    (cls := self resolveName:cls inClass:(Smalltalk at: specClass)) isNil ifTrue:[
+    (cls := self resolveName:cls inClass:(Smalltalk at: specClass asSymbol)) isNil ifTrue:[
         spec majorKey isNil ifTrue:[
             ^ self warn:'Cannot find class (no majorKey specified)'.
         ].