--- a/Tools__MethodCategoryList.st	Sat Feb 21 01:19:26 2015 +0100
+++ b/Tools__MethodCategoryList.st	Sat Feb 21 02:02:13 2015 +0100
@@ -1526,7 +1526,7 @@
     categoryList size == 1 ifTrue:[
         nm := categoryList first string.
         classes size == 1 ifTrue:[
-            nm := classes first name , '-' , nm
+            nm := ((classes first name) ? '*unnamed*') , '-' , nm
         ].
         self protocolLabelHolder value:nm
     ].
@@ -2123,11 +2123,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.109 2015-02-19 12:14:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.110 2015-02-21 01:02:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.109 2015-02-19 12:14:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.110 2015-02-21 01:02:13 cg Exp $'
 ! !