--- a/InspectorView.st	Tue Oct 15 02:29:11 2013 +0100
+++ b/InspectorView.st	Tue Oct 15 13:47:18 2013 +0100
@@ -1661,7 +1661,7 @@
     object class withAllSuperclassesDo:[:eachClass |
         eachClass methodDictionary keysAndValuesDo:[:sel :m |
             sel numArgs == 0 ifTrue:[
-                (protocols at:m category ifAbsentPut:[Set new]) add:sel.
+                (protocols at:(m category ?'') ifAbsentPut:[Set new]) add:sel.
                 (selectorsByFirstCharacter at:(sel first asString) ifAbsentPut:[Set new]) add:sel.
             ]
         ].
@@ -1717,6 +1717,8 @@
             ]
     ].
     ^  protocolMenu
+
+    "Modified: / 15-10-2013 / 12:38:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 sortOrderItems