--- a/UIPainterView.st	Mon Mar 09 21:40:30 1998 +0100
+++ b/UIPainterView.st	Mon Mar 09 21:41:42 1998 +0100
@@ -897,14 +897,13 @@
     "setup attributes
     "
     super initialize.
-
     superclassName := 'ApplicationModel'.
     className      := 'NewApplication'.
     methodName     := 'windowSpec'.
     categoryName   := 'Applications'.
     HandCursor     := Cursor leftHand.
 
-    self backgroundColor: self class defaultViewBackgroundColor
+    self backgroundColor: self class defaultViewBackgroundColor.
 !
 
 setupFromSpec:specOrSpecArray
@@ -1092,14 +1091,9 @@
     "
     |next name size|
 
-    aSpecOrString isString ifFalse:[name := aSpecOrString className asString]
+    aSpecOrString isString ifFalse:[name := aSpecOrString userFriendlyName]
                             ifTrue:[name := aSpecOrString].
 
-    (name endsWith:'Spec') ifTrue:[
-        name := name copyFrom:1 to:(name size - 4).
-    ] ifFalse:[
-        name := name copy
-    ].
     size  := name size + 1.
     next  := 0.