--- a/UIPainter.st	Tue Jun 24 19:14:46 1997 +0200
+++ b/UIPainter.st	Wed Jun 25 14:28:14 1997 +0200
@@ -1241,10 +1241,15 @@
     ].
 
     specSuperclass isBehavior ifFalse:[
-        superclass := Smalltalk at:specSuperclass asSymbol
+        specSuperclass isEmpty ifFalse:[
+            superclass := Smalltalk at:specSuperclass asSymbol
+        ] ifTrue:[
+            specSuperclass := nil.
+        ]
     ] ifTrue:[
         superclass := specSuperclass
     ].
+
     specSuperclass notNil ifTrue:[
         superclass isNil ifTrue:[
             self warn:'no class named ' , specSuperclass , ' exists.'.
@@ -1256,9 +1261,16 @@
             ^ false.
         ]
     ].
+
+    superclass isNil ifTrue:[
+        cls notNil ifTrue:[
+            specSuperclass := cls superclass name
+        ]
+    ].
+
     ^ true
 
-
+    "Modified: 25.6.1997 / 13:37:11 / cg"
 !
 
 defineClassAndSelector