--- a/UIPainter.st	Thu Aug 17 17:39:23 2000 +0200
+++ b/UIPainter.st	Thu Aug 17 17:46:45 2000 +0200
@@ -3674,7 +3674,7 @@
 canvas:aCanvas
     "install canvas (UIPainterView)"
 
-    self canvas:aCanvas specName:UIPainter defaultNameOfCanvas
+    self canvas:aCanvas specName:nil
 !
 
 canvas:aCanvas specName:nameOfSpec
@@ -3684,10 +3684,9 @@
 
     props := UIPainterView::ViewProperty new.
     props view:aCanvas.
-    model root:(TreeItem name:nameOfSpec asBoldText contents:props).
+    model root:(TreeItem name:(nameOfSpec ? UIPainter defaultNameOfCanvas) asBoldText contents:props).
     model root expand.
     self enableChannel:(aCanvas enableChannel).
-
 !
 
 canvasSpec