--- a/UIPainterView.st	Thu Feb 05 13:43:45 1998 +0100
+++ b/UIPainterView.st	Thu Feb 05 13:46:11 1998 +0100
@@ -847,13 +847,18 @@
         self removeAll.
         spec    := UISpecification from:specOrSpecArray.
         builder := UIBuilder new isEditing:true.
-
+        "set applicationClass, in order that subspecifications may be resolved"
+        className notNil ifTrue:[
+            builder applicationClass:(self resolveName:className).
+        ].
         spec window setupView:self topView for:builder.
         self addSpec:(spec component) builder:builder in:self.
         self realizeAllSubViews.
         inputView raise.
         treeView setAttributesFromWindowSpec:(spec window).
     ]
+
+    "Modified: / 5.2.1998 / 11:42:39 / stefan"
 !
 
 treeView:aTreeView