--- a/UIPainter.st	Wed Jan 09 21:07:57 2008 +0100
+++ b/UIPainter.st	Thu Jan 10 13:59:22 2008 +0100
@@ -5056,13 +5056,13 @@
 nameForSpecInList:aSpec
     "returns the tree item label for aSpec"
 
-    |m|
-
-    m := aSpec perform:#model ifNotUnderstood:nil.
-    m notNil ifTrue:[
-        ^ '(',m allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' 
+    |aspect|
+
+    aspect := aSpec nameOfMainAspect.
+    aspect notNil ifTrue:[
+        ^ '(',aspect allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' 
     ].
-    ^ aSpec name allBold, ': [', aSpec viewClass name , ']' 
+    ^ aSpec name "allBold", ': [', aSpec viewClass name , ']' 
 !
 
 selectionChangedFrom:oldSelection