--- a/Tools__NewSystemBrowser.st	Sun Sep 08 16:58:50 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Sun Sep 08 17:00:17 2019 +0200
@@ -19729,7 +19729,7 @@
         subjects := self selectedCategoriesValue.
         ^ (CategoryEnvironment new)
             categories:subjects;
-            label:(subjects size = 1
+            label:(subjects size == 1
                         ifTrue:[ 'class category ' , (subjects anElement ? '')]
                         ifFalse:[ subjects size printString , ' class categories' ]);
             yourself
@@ -19754,7 +19754,7 @@
         allSubjects addAll:(subjects collect:[:cls | cls theMetaclass]).
         ^ (ClassEnvironment new)
             classes:allSubjects;
-            label:(subjects size = 1
+            label:(subjects size == 1
                         ifTrue:[ 'class ' , subjects anyOne fullName ]
                         ifFalse:[ subjects size printString , ' classes' ]);
             yourself
@@ -19801,7 +19801,7 @@
         classes := self selectedLintRuleClasses value.
         ^ (ClassEnvironment new)
             classes:classes;
-            label:(classes size = 1
+            label:(classes size == 1
                         ifTrue:[ 'class ' , classes anyOne fullName ]
                         ifFalse:[ classes size printString , ' classes' ]);
             yourself
@@ -19825,7 +19825,7 @@
         subjects := self selectedNamespacesValue.
         ^ (NamespaceEnvironment new)
             namespaceNames:subjects;
-            label:(subjects size = 1
+            label:(subjects size == 1
                         ifTrue:[ 'namespace ' , subjects anyOne ]
                         ifFalse:[ subjects size printString , ' namespaces' ]);
             yourself
@@ -19922,7 +19922,7 @@
     
     ^ (PackageEnvironment new)
             packageNames:subjects;
-            label:(subjects size = 1
+            label:(subjects size == 1
                     ifTrue:[ 'package: ' , subjects anyOne ]
                     ifFalse:[ subjects size printString , ' packages' ]);
             yourself
@@ -19951,7 +19951,7 @@
         ^ ProtocolEnvironment new
             class: theClass
             protocols: protocols;
-            label:(protocols size = 1
+            label:(protocols size == 1
                         ifTrue:[ 'protocol "' , protocols anElement printString , '" in ' , className ]
                         ifFalse:[ protocols size printString , ' protocols in ' , className ]);
             yourself
@@ -23443,7 +23443,7 @@
 
 hasProjectSelectedAndSubversionRepositoryExistsHolder
     ^ [ self hasProjectSelected
-            and:[self selectedProjects value size = 1
+            and:[self selectedProjects value size == 1
                 and:[self hasSubversionRepositoryFor: self selectedProjects value anyOne]]]
 
     "Created: / 31-03-2008 / 15:07:52 / janfrog"
@@ -38163,7 +38163,7 @@
         Dialog warn:(resources
                             stringWithCRs:'Could not fetch tag information.\\Please check your sourcecode manager settings.\(and possibly the network for reachability of the repository)').
     ] do:[
-        tagAndRevision := self askForTagForClasses:classes askForRevision:(classes size = 1).
+        tagAndRevision := self askForTagForClasses:classes askForRevision:(classes size == 1).
     ].
     tag := tagAndRevision key.
     tag isEmptyOrNil ifTrue:[^ self ].
@@ -62974,7 +62974,7 @@
         actionList add:[ self updateCodeEditorVisibilityForCanvasEditor:editorCanvas class:aClassOrNil method:aMethod ].
     ].
 
-    (hideSpecialEditor and:[tabList size = 1]) ifTrue:[
+    (hideSpecialEditor and:[tabList size == 1]) ifTrue:[
         "/ sigh - setting an empty list also changes the selection to 0 (side effect in NoteBookView).
         "/ To avoid flickering change messages, preSet its value to 0.
         self selectedEditorNoteBookTabIndexHolder setValue:0.