--- a/Tools__NewSystemBrowser.st	Mon Oct 09 17:42:15 2017 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Oct 09 17:43:51 2017 +0200
@@ -19384,7 +19384,7 @@
         ^ (CategoryEnvironment new)
             categories:subjects;
             label:(subjects size = 1
-                        ifTrue:[ 'class category ' , (subjects anyOne ? '')]
+                        ifTrue:[ 'class category ' , (subjects anElement ? '')]
                         ifFalse:[ subjects size printString , ' class categories' ]);
             yourself
     ].
@@ -19393,6 +19393,7 @@
     "Created: / 17-04-2010 / 10:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 06-03-2012 / 18:54:41 / cg"
     "Modified: / 03-12-2014 / 11:04:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 09-10-2017 / 17:26:42 / stefan"
 !
 
 selectedClassesAsEnvironment