--- a/Smalltalk.st	Mon Mar 05 12:32:05 2018 +0100
+++ b/Smalltalk.st	Mon Mar 05 14:48:27 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -8542,7 +8544,7 @@
                             nameComponents := nm asCollectionOfSubstringsSeparatedBy:$_.
                             packageName := nameComponents first.
                             nameComponents size > 1 ifTrue:[
-                                packageName := packageName,':',((nameComponents from:2) asStringWith:'/')
+                                packageName := packageName,':',((nameComponents copyFrom:2) asStringWith:'/')
                             ]. 
                         ].
                         packageName notNil ifTrue:[
@@ -8773,13 +8775,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)'
     ]]]]]].