diff -r e28ca0319230 -r 8992bc061c11 UIPainter.st
--- a/UIPainter.st	Sat Feb 07 21:35:19 1998 +0100
+++ b/UIPainter.st	Sat Feb 07 22:55:40 1998 +0100
@@ -2207,7 +2207,10 @@
     cls isNil ifTrue:[
         cls := self specClass.
     ].
-    (cls isNil or:[(cls := self resolveName:specClass) isNil]) ifTrue:[
+    (cls isNil or:[(cls := self resolveName:cls) isNil]) ifTrue:[
+        spec majorKey isNil ifTrue:[
+            ^ self warn:'Cannot find class (no majorKey specified)'.
+        ].
         ^ self warn:'Cannot find class'.
     ].
     sel := spec minorKey.