--- a/Smalltalk.st	Fri Sep 01 14:16:34 2017 +0200
+++ b/Smalltalk.st	Fri Sep 01 14:27:35 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -1292,11 +1290,13 @@
 
     "startup a browser for all methods sending a particular message"
 
-    UserPreferences systemBrowserClass browseAllCallsOn:aSelectorSymbol
+    SystemBrowser default browseAllCallsOn:aSelectorSymbol
 
     "
      Smalltalk browseAllCallsOn:#at:put:
     "
+
+    "Modified: / 01-09-2017 / 14:21:31 / cg"
 !
 
 browseAllSelect:aBlock
@@ -1304,11 +1304,13 @@
 
     "startup a browser for all methods for which aBlock returns true"
 
-    UserPreferences systemBrowserClass browseAllSelect:aBlock
+    SystemBrowser default browseAllSelect:aBlock
 
     "
      Smalltalk browseAllSelect:[:m | m literals isNil]
     "
+
+    "Modified: / 01-09-2017 / 14:21:34 / cg"
 !
 
 browseChanges
@@ -1334,11 +1336,13 @@
      The broser will only show that class (i.e. be a singleClass-browser).
      See browseInClass: for a full browser, which has aClass selected initially."
 
-    UserPreferences systemBrowserClass browseClass:aClass
+    SystemBrowser default browseClass:aClass
 
     "
      Smalltalk browseClass:Array
     "
+
+    "Modified: / 01-09-2017 / 14:21:37 / cg"
 !
 
 browseImplementorsMatching:aSelectorSymbolOrMatchPattern
@@ -1346,12 +1350,14 @@
 
     "startup a browser for all methods implementing a message matching"
 
-    UserPreferences systemBrowserClass browseImplementorsMatching:aSelectorSymbolOrMatchPattern
+    SystemBrowser default browseImplementorsMatching:aSelectorSymbolOrMatchPattern
 
     "
      Smalltalk browseImplementorsOf:#'at:put:'
      Smalltalk browseImplementorsMatching:#'at:*'
     "
+
+    "Modified: / 01-09-2017 / 14:21:39 / cg"
 !
 
 browseImplementorsOf:aSelectorSymbol
@@ -1359,11 +1365,13 @@
 
     "startup a browser for all methods implementing a particular message"
 
-    UserPreferences systemBrowserClass browseImplementorsOf:aSelectorSymbol
+    SystemBrowser default browseImplementorsOf:aSelectorSymbol
 
     "
      Smalltalk browseImplementorsOf:#at:put:
     "
+
+    "Modified: / 01-09-2017 / 14:21:42 / cg"
 !
 
 browseInClass:aClass
@@ -1373,11 +1381,13 @@
      The browser will be a full browser with aClass initially selected.
      See browseClass: for a singleClass browser, which shows only a single class."
 
-    UserPreferences systemBrowserClass openInClass:aClass
+    SystemBrowser default openInClass:aClass
 
     "
      Smalltalk browseInClass:Array
     "
+
+    "Modified: / 01-09-2017 / 14:21:46 / cg"
 !
 
 browseInClass:aClass selector:selector
@@ -1387,11 +1397,13 @@
      The browser will be a full browser with aClass initially selected.
      See browseClass: for a singleClass browser, which shows only a single class."
 
-    UserPreferences systemBrowserClass openInClass:aClass selector:selector
+    SystemBrowser default openInClass:aClass selector:selector
 
     "
      Smalltalk browseInClass:Array selector:#at:
     "
+
+    "Modified: / 01-09-2017 / 14:21:49 / cg"
 ! !
 
 !Smalltalk class methodsFor:'class management'!
@@ -8754,13 +8766,13 @@
     (lang == #de) ifTrue:[
         proto := 'Willkommen bei %1 (%4Version %2 von %3)'. bit := 'Bit'.
     ] ifFalse:[ (lang == #fr) ifTrue:[
-        proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
+        proto := 'Salut, Bienvenue à %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #it) ifTrue:[
         proto := 'Ciao, benvenuto al %1 (%4versione %2 di %3)'
     ] ifFalse:[ (lang == #es) ifTrue:[
         proto := 'Hola, bienvenida a %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #pt) ifTrue:[
-        proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
+        proto := 'Olá!!, mem-vindo a %1 (%4version %2 de %3)'
     ] ifFalse:[ (lang == #no) ifTrue:[
         proto := 'Hei, verdenmottakelse til %1 (%4versjon %2 av %3)'
     ]]]]]].