--- a/Tools__MethodList.st	Mon Mar 04 10:20:39 2019 +0100
+++ b/Tools__MethodList.st	Mon Mar 04 12:33:04 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -1282,7 +1280,9 @@
      generator doShowClass doShowClassFirst doShowCategory enforceClassAndProtocolInList
      theMethod sortByClass anyMethodToWatch mclass
      packageFilterValue nameListEntryForExtensions
-     suppressInheritanceInfoNow startTime numFiltered|
+     suppressInheritanceInfoNow startTime numFiltered methodCount noCat|
+
+    noCat := (self class nameListEntryForNILCategory).
 
     suppressInheritanceInfoNow := (showMethodInheritance value ? true) not.
     startTime := Timestamp now.
@@ -1293,7 +1293,8 @@
     ].
     allClasses := IdentitySet new.
     allCategories := IdentitySet new.
-
+    methodCount := 0.
+    
     "/ allSelectors := Set new.
 
     newClasses := IdentitySet new.
@@ -1347,7 +1348,8 @@
                         selectorBag add:sel.
                         newClasses add:cls.
 
-                        allCategories add:mthd category.
+                        allCategories add:(mthd category ? noCat).
+                        methodCount := methodCount + 1.
                         "/ allSelectors add:sel.
                     ]
                 ]
@@ -1490,6 +1492,7 @@
     "Modified: / 24-08-2010 / 20:34:09 / Jan Vrany"
     "Modified (comment): / 17-09-2013 / 10:31:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 27-11-2017 / 15:35:19 / cg"
+    "Modified: / 04-03-2019 / 12:12:50 / Claus Gittinger"
 !
 
 makeDependent