--- a/InspectorView.st	Wed Feb 05 20:08:31 2014 +0100
+++ b/InspectorView.st	Wed Feb 05 20:08:36 2014 +0100
@@ -1669,7 +1669,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.
             ]
         ].
@@ -1725,6 +1725,8 @@
             ]
     ].
     ^  protocolMenu
+
+    "Modified: / 15-10-2013 / 12:38:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 sortOrderItems
@@ -3136,7 +3138,7 @@
 
     list := OrderedCollection new.
     self hasSelfEntry ifTrue:[
-        list add:'-' , 'self' allItalic.
+        list add:'-' , (object isJavaObject ifTrue:['this'] ifFalse:['self']) allItalic.
     ].
     hideMessages ifFalse:[
         list add:'-' , 'local messages' allItalic.
@@ -3175,6 +3177,7 @@
     ^ list
 
     "Modified: / 13-06-2012 / 12:10:16 / cg"
+    "Modified: / 05-11-2013 / 17:57:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 setAcceptAction
@@ -3696,10 +3699,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.324 2014-01-16 14:32:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.325 2014-02-05 19:08:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.324 2014-01-16 14:32:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.325 2014-02-05 19:08:36 cg Exp $'
 ! !