--- a/Tools__MethodList.st	Mon Mar 24 10:08:45 2014 +0100
+++ b/Tools__MethodList.st	Mon Mar 24 10:09:21 2014 +0100
@@ -1751,7 +1751,7 @@
             s := s , ' [' , cls name allBold , ']'.
         ]
     ].
-    (showCategory and:[aMethod mclass supportsMethodCategories]) ifTrue:[
+    (showCategory and:[aMethod mclass notNil and:[aMethod mclass supportsMethodCategories]]) ifTrue:[
         cat := aMethod category.
         cat notNil ifTrue:[
             s := s , ' {' , (cat "asText allItalic" colorizeAllWith:Color grey), '}'
@@ -1893,10 +1893,10 @@
 !MethodList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.100 2014-03-05 10:40:08 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.101 2014-03-24 09:09:21 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.100 2014-03-05 10:40:08 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.101 2014-03-24 09:09:21 stefan Exp $'
 ! !