--- a/UIPainter.st	Fri Jul 04 10:12:29 2008 +0200
+++ b/UIPainter.st	Wed Jul 09 15:05:08 2008 +0200
@@ -4645,7 +4645,7 @@
     [
         again := false.
 
-        aspects at:#classNameChannel      put:(specClassName      ? 'NewApplication')   asValue.
+        aspects at:#classNameChannel      put:(specClassName  ? 'NewApplication')   asValue.
         aspects at:#methodNameChannel     put:(specSelector   ? 'windowSpec')       asValue.
         aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue.
 
@@ -5130,9 +5130,10 @@
     self clearModified.
     self painter resetModification.
 
-    specClassName := classAndSelector methodClass.
+    specClass := classAndSelector methodClass.
+    specClassName := classAndSelector methodClass name.
     specSelector := classAndSelector methodSelector.
-    specSuperclassName := specClassName superclass name.
+    specSuperclassName := specClass superclass name.
     self doSave.
     ^ true
 !