--- a/SystemBrowser.st	Thu May 24 09:00:29 2018 +0200
+++ b/SystemBrowser.st	Thu May 24 09:00:53 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -120,7 +122,7 @@
 
 openInClass:aClass selector:aSelector
     "launch a standard browser which immediately switches
-     to aClass » aSelector. Returns the browser"
+     to aClass » aSelector. Returns the browser"
 
     |brwsr classesName|
 
@@ -733,9 +735,9 @@
             ].
 
             aMatchString includesMatchCharacters ifTrue:[
-                msg := 'Classes matching or similar to "%1"\\Select or enter name of class to switch to:'
+                msg := 'Class names matching or similar to "%1"\\Select or enter name of class to switch to:'
             ] ifFalse:[
-                msg := 'Classes containing or similar to "%1"\\Select or enter name of class to switch to:'
+                msg := 'Class names containing or similar to "%1"\\Select or enter name of class to switch to:'
             ].
 
             box := self listBoxTitle:(resources string:msg with:matchStringArg) withCRs
@@ -750,7 +752,7 @@
             browseButton action:[
                             |classes title|
 
-                            title := resources string:'Classes Matching or Similar to "%1"' with:matchStringArg.
+                            title := resources string:'Class Names Matching or Similar to "%1"' with:matchStringArg.
                             classes := classNames collect:[:nm | Smalltalk classNamed:nm].
                             aBrowserOrNil isNil ifTrue:[
                                 SystemBrowser
@@ -806,6 +808,7 @@
     ^ className
 
     "Modified: / 16-10-2006 / 11:36:20 / cg"
+    "Modified: / 24-05-2018 / 08:49:02 / Claus Gittinger"
 !
 
 listBoxTitle:title okText:okText list:aList
@@ -7191,8 +7194,8 @@
         ('*>>*' match:sel) ifTrue:[
             sep := $>
         ] ifFalse:[
-            ('*»*' match:sel) ifTrue:[
-                sep := $»
+            ('*»*' match:sel) ifTrue:[
+                sep := $»
             ] ifFalse:[
                 ('* *' match:sel) ifTrue:[
                     sep := Character space
@@ -7231,7 +7234,7 @@
 
     aString isEmptyOrNil ifTrue:[^ nil].
 
-    (idx := aString indexOf:$») ~~ 0 ifTrue:[
+    (idx := aString indexOf:$») ~~ 0 ifTrue:[
         s := (aString copyFrom:idx+1) withoutSeparators.
         s isEmpty ifTrue:[^ nil]. 
     ] ifFalse:[    
@@ -7281,7 +7284,7 @@
      self extractSelectorFrom:'self at:something put:someValue'
      self extractSelectorFrom:'(self at:something put:someValue)' 
      self extractSelectorFrom:'[self at:something put:someValue] value' 
-     self extractSelectorFrom:'Array » at:put:' 
+     self extractSelectorFrom:'Array » at:put:' 
      self extractSelectorFrom:'Array>>at:put:' 
      self extractSelectorFrom:'Array>>#at:put:' 
      self extractSelectorFrom:'Array>>#''at:put:''' 
@@ -7454,7 +7457,7 @@
     ].
     selector notNil ifTrue:[ 
         aGCOrStream
-            nextPutAll:' » ';
+            nextPutAll:' » ';
             bold;
             nextPutAll:selector;
             normal.