--- a/UIPainter.st	Tue Mar 14 18:18:53 2006 +0100
+++ b/UIPainter.st	Tue Mar 14 20:03:57 2006 +0100
@@ -3440,10 +3440,10 @@
 
         list := slices collect:[:eachSlice | eachSlice first asString].
         self treeView isCanvasSelected ifFalse:[
-            list add:(UIHelpTool label)
+            list := list copyWith:(UIHelpTool label)
         ].
         view notNil ifTrue:[
-            list add:UILayoutTool label.
+            list := list copyWith:UILayoutTool label.
         ].
 
 "/        size   := slices size.