--- a/UIPainter.st	Thu Aug 18 02:19:34 2011 +0200
+++ b/UIPainter.st	Thu Aug 18 02:36:42 2011 +0200
@@ -6444,13 +6444,21 @@
 nameForSpecInList:aSpec
     "returns the tree item label for aSpec"
 
-    |aspect|
+    |aspect aspectPrefix nameString viewClassString|
+
+    nameString := aSpec name ? ''.
+    viewClassString := '[',aSpec viewClass name,']' .
 
     aspect := aSpec nameOfMainAspect.
     aspect notNil ifTrue:[
-        ^ '(',aspect allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' 
-    ].
-    ^ aSpec name "allBold", ': [', aSpec viewClass name , ']' 
+        aspectPrefix := '(',aspect allBold ,') '
+    ] ifFalse:[
+        aspectPrefix := ''.
+    ].
+
+    ^ aspectPrefix, nameString, ': ', viewClassString
+
+    "Modified: / 17-08-2011 / 09:10:31 / cg"
 !
 
 selectionChangedFrom:oldSelection