--- a/Tools__NavigationState.st	Thu Apr 04 01:43:18 2013 +0100
+++ b/Tools__NavigationState.st	Thu Apr 04 19:06:16 2013 +0100
@@ -1020,8 +1020,6 @@
     "Modified: / 26-02-2013 / 12:29:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-"bad name- it's a holder, baby"
-
 selectedLintRules
     selectedLintRules isNil ifTrue:[
         selectedLintRules := nil asValue.
@@ -1474,7 +1472,7 @@
                     nm := nm , ' ', (methodName ? '???')
                 ] ifFalse:[
                     nm := methods size printString , ' methods'.
-                    numClasses := (methods collect:[:each | each mclass]) asIdentitySet size.
+                    numClasses := (methods collect:[:each | each mclass] as:IdentitySet) size.
                     numClasses > 1 ifTrue:[
                         nm := nm , ' in ' , numClasses printString , ' classes'.
                     ].
@@ -1526,7 +1524,7 @@
             ] ifFalse:[
                 cats := self selectedCategories value.
                 cats size == 1 ifTrue:[
-                    nm := cats first string
+                    nm := (cats first ? '') string
                 ]
             ]
         ].