--- a/Tools_NavigationState.st	Mon Aug 13 16:23:56 2012 +0200
+++ b/Tools_NavigationState.st	Mon Aug 13 16:24:11 2012 +0200
@@ -1429,7 +1429,7 @@
 
             nm := numClasses printString , ' classes in '.
             "/ cats := self selectedCategories value
-            cats := (classes collect:[:each | each category]) asSet.
+            cats := classes collect:[:each | each category] as:Set.
             (numCategories := cats size) == 1 ifTrue:[
                 nm := nm , cats first
             ] ifFalse:[
@@ -1664,7 +1664,7 @@
 !NavigationState class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.42 2012-07-19 18:28:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.43 2012-08-13 14:24:11 stefan Exp $'
 !
 
 version_SVN