--- a/InspectorView.st	Tue May 31 11:28:11 2016 +0200
+++ b/InspectorView.st	Tue May 31 15:24:12 2016 +0200
@@ -3136,20 +3136,21 @@
 !
 
 stringWithMessages:which
-    |cls s messages |
-
-    s := CharacterWriteStream on:''.
+    |cls s messages allSelectors|
+
     cls := object class.
     which == #local ifTrue:[
         messages := cls selectors.
     ] ifFalse:[
+        allSelectors := cls allSelectors.
         which == #all ifTrue:[
-            messages := cls allSelectors.
+            messages := allSelectors.
         ] ifFalse:[
-            messages := cls allSelectors asNewSet removeAll:cls selectors; yourself.
+            messages := allSelectors asNewSet removeAll:cls selectors; yourself.
         ].
     ].
 
+    s := CharacterWriteStream on:''.
     messages asOrderedCollection sort do:[:eachSelector |
         s nextPutAll:eachSelector.
         s cr.