--- a/ChangesBrowser.st	Fri Sep 01 14:26:47 2017 +0200
+++ b/ChangesBrowser.st	Fri Sep 01 14:26:53 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -1953,15 +1951,17 @@
     "user wants a browser on the class of a change"
 
     self withSingleSelectedChangeDo:[:changeNr |
-	|cls|
-
-	cls := self classOfChange:changeNr.
-	cls notNil ifTrue:[
-	    UserPreferences systemBrowserClass
-		openInClass:cls
-		selector:(self selectorOfMethodChange:changeNr)
-	]
+        |cls|
+
+        cls := self classOfChange:changeNr.
+        cls notNil ifTrue:[
+            SystemBrowser default
+                openInClass:cls
+                selector:(self selectorOfMethodChange:changeNr)
+        ]
     ]
+
+    "Modified: / 01-09-2017 / 14:20:00 / cg"
 !
 
 doBrowseImplementors
@@ -1970,16 +1970,17 @@
     |changeNr initial selector|
 
     (changeNr := self theSingleSelection) notNil ifTrue:[
-	initial := self selectorOfMethodChange:changeNr.
+        initial := self selectorOfMethodChange:changeNr.
     ].
 
     selector := Dialog
-		    request:'Selector to browse implementors of:'
-		    initialAnswer:(initial ? '').
+                    request:'Selector to browse implementors of:'
+                    initialAnswer:(initial ? '').
     selector size ~~ 0 ifTrue:[
-	UserPreferences systemBrowserClass
-	    browseImplementorsMatching:selector.
+        SystemBrowser default browseImplementorsMatching:selector.
     ]
+
+    "Modified (format): / 01-09-2017 / 14:20:06 / cg"
 !
 
 doBrowseSenders
@@ -1988,16 +1989,17 @@
     |changeNr initial selector|
 
     (changeNr := self theSingleSelection) notNil ifTrue:[
-	initial := self selectorOfMethodChange:changeNr.
+        initial := self selectorOfMethodChange:changeNr.
     ].
 
     selector := Dialog
-		    request:'Selector to browse senders of:'
-		    initialAnswer:(initial ? '').
+                    request:'Selector to browse senders of:'
+                    initialAnswer:(initial ? '').
     selector size ~~ 0 ifTrue:[
-	UserPreferences systemBrowserClass
-	    browseAllCallsOn:selector asSymbol.
+        SystemBrowser default browseAllCallsOn:selector asSymbol.
     ]
+
+    "Modified: / 01-09-2017 / 14:20:13 / cg"
 !
 
 doCheckinAndDeleteClassAll
@@ -3646,7 +3648,7 @@
     "/ does not care for VW qualified names
     "/ ^ Parser parseExpression:text inNameSpace:nameSpace.
 
-(text includesString:'§') ifTrue:[self halt].
+(text includesString:'§') ifTrue:[self halt].
 
     "/ new:
     parser := Parser for:(ReadStream on:text).
@@ -6669,7 +6671,7 @@
     "
     clsName := nil.
 
-(chunkText includesString:'§') ifTrue:[self halt].
+(chunkText includesString:'§') ifTrue:[self halt].
 
     p := browser parseExpression:chunkText inNameSpace:(self nameSpaceForApply).
     (p notNil and:[p ~~ #Error and:[p isMessage]]) ifTrue:[