--- a/CVSSourceCodeManager.st	Fri Sep 30 16:45:54 2016 +0200
+++ b/CVSSourceCodeManager.st	Fri Sep 30 16:47:50 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
               All Rights Reserved
@@ -1117,7 +1119,7 @@
                 critical:[
                     |p errOut done|
 
-                    errOut := WriteStream on:String new.
+                    errOut := WriteStream on:''.
                     p := [
                                 (outStreamOrNil notNil or:[ errorStreamOrNil notNil]) ifTrue:[
                                     rslt := ok := OperatingSystem executeCommand:command
@@ -2372,7 +2374,7 @@
                 changeLog := self revisionLogOf:cls fromRevision:(self revisionAfter:revision) toRevision:nil.
             ].
             changeLog notNil ifTrue:[
-                s := CharacterWriteStream on:String new.
+                s := CharacterWriteStream on:''.
                 self writeRevisionLogMessagesFrom:changeLog withHeader:false to:s.
                 changesAsLogged := s contents.
             ] ifFalse:[
@@ -4311,7 +4313,7 @@
                 module:moduleDir 
                 inDirectory:nil 
                 log:true 
-                outputTo:(WriteStream on:String new) errorTo:(WriteStream on:String new).
+                outputTo:(WriteStream on:'') errorTo:(WriteStream on:'').
         ] ifFalse:[
             "/
             "/ read the commands pipe output and extract the container info
@@ -4728,17 +4730,17 @@
             "/ The repair code will be removed at some time in the future...
 
             "/ temporary fix Felix' bad string translation:
-            (aString startsWith:'§Header:') ifTrue:[
-                (aString endsWith:'Exp §') ifTrue:[
+            (aString startsWith:'§Header:') ifTrue:[
+                (aString endsWith:'Exp §') ifTrue:[
                     fixedString := '$' , (aString copyFrom:3 to:(aString size - 2)) , '$'.
 
                     aClass isNil ifTrue:[
                         autoFixHolder value ifFalse:[
-                            Dialog information:'Attention: the CVS version string is corrupted (§-bug). Please fix it manually'.
+                            Dialog information:'Attention: the CVS version string is corrupted (§-bug). Please fix it manually'.
                         ]
                     ] ifFalse:[
                         (autoFixHolder value 
-                            or:[ Dialog confirm:('Attention: the CVS version string is corrupted in "%1" (§-bug). Fix it?' withCRs bindWith:aClass name) ]
+                            or:[ Dialog confirm:('Attention: the CVS version string is corrupted in "%1" (§-bug). Fix it?' withCRs bindWith:aClass name) ]
                         ) ifTrue:[
                             self updateVersionMethodOf:aClass for:fixedString.
                         ].
@@ -4746,7 +4748,7 @@
                 ].
             ].
 
-            "/ temporary fix Jan's bad Umlaut-removal (which results in Felix's bad § being removed):
+            "/ temporary fix Jan's bad Umlaut-removal (which results in Felix's bad § being removed):
             (aString startsWith:'Header: ') ifTrue:[
                 (aString endsWith:'Exp ') ifTrue:[
                     fixedString := '$' , aString , '$'.