--- a/UIPainter.st	Wed Aug 09 12:32:38 2000 +0200
+++ b/UIPainter.st	Thu Aug 10 15:52:04 2000 +0200
@@ -11,6 +11,8 @@
 "
 
 
+"{ Package: 'stx:libtool2' }"
+
 ToolApplicationModel subclass:#UIPainter
 	instanceVariableNames:'specClass specSelector specSuperclass aspects treeView
 		selectionPanel tabSelection modified specTool layoutTool helpTool'
@@ -3847,7 +3849,7 @@
     "sets a window spec from aWindowSpec and applies some attributes
      to the canvas."
 
-    |nm canvasView builder|
+    |name canvasView builder|
 
     windowSpec := WindowSpec new copyValuesFromSpec:aWindowSpec.
     canvasView := self canvas.
@@ -3855,9 +3857,9 @@
     builder := UIBuilder new isEditing:true.
     aWindowSpec setAttributesIn:canvasView with:builder.
 
-    nm := aWindowSpec name.
-    canvasView topView name:nm.
-    self canvasNameChanged:nm.
+    name := aWindowSpec label.
+    canvasView topView name:name.
+    self canvasNameChanged:name.
     self application treeSelection.
 ! !