--- a/ClassBuilder.st	Tue Feb 25 12:24:14 2020 +0100
+++ b/ClassBuilder.st	Tue Feb 25 12:29:58 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -572,12 +570,12 @@
         oldClass := nil.
 
         (buildingPrivateClass and:[ParserFlags warnings and:[ParserFlags warnSTXSpecials]]) ifTrue:[
-            (self confirm:('Support for private classes is an ST/X extension.\\continue ?') withCRs)
+            (self confirm:(c'Support for private classes is an ST/X extension.\n\ncontinue ?'))
             ifFalse:[^ nil].
         ].
     ] ifTrue:[
         oldClass name ~= realNewName ifTrue:[
-            (self confirm:(className , ' is an alias for ' , oldClass name , '\\continue ?') withCRs)
+            (self confirm:(className , ' is an alias for ' , oldClass name , c'\n\ncontinue ?'))
             ifFalse:[^ nil].
             oldClass := nil
         ] ifFalse:[
@@ -598,7 +596,7 @@
             oldClass isLoaded ifTrue:[
                 oldClass category ~= category ifTrue:[
                     oldClass instanceVariableString asCollectionOfWords ~= instanceVariableNames asCollectionOfWords ifTrue:[
-                        (self confirm:('A class named %1 already exists in category "%2".\\Create (i.e. change) anyway?' withCRs
+                        (self confirm:(c'A class named %1 already exists in category "%2".\n\nCreate (i.e. change) anyway?'
                                             bindWith:oldClass name allBold 
                                             with:oldClass category))
                         ifFalse:[
@@ -2191,7 +2189,7 @@
 
         ClassBuildWarning new
             className:className;
-            messageText:('Class Name "%1"\should start with an uppercase letter (by convention only)'withCRs
+            messageText:(c'Class Name "%1"\nshould start with an uppercase letter (by convention only)'
                             bindWith:className allBold);
             raiseRequest.
 "/        (self confirm:('%1 name "%2" should start with an uppercase letter\(by convention only)\\install anyway ?'
@@ -2210,7 +2208,7 @@
 
         ClassBuildWarning new
             className:className;
-            messageText:('%1: instance variable named "%2"\should start with a lowercase letter (by convention only)'withCRs
+            messageText:(c'%1: instance variable named "%2"\nshould start with a lowercase letter (by convention only)'
                             bindWith:className 
                             with:(names at:idx) allBold);
             raiseRequest.
@@ -2232,7 +2230,7 @@
 
         ClassBuildWarning new
             className:className;
-            messageText:('%1: class variable named "%2"\should start with an uppercase letter (by convention only)'withCRs
+            messageText:(c'%1: class variable named "%2"\nshould start with an uppercase letter (by convention only)'
                             bindWith:className 
                             with:(names at:idx) allBold);
             raiseRequest.
@@ -2420,7 +2418,7 @@
     "check for classvar redefs within local instvars"
     classVarNames keysAndValuesDo:[:index :aName |
         (classVarNames indexOf:aName startingAt:index+1) ~~ 0 ifTrue:[
-            self warn:'class variable ''' , aName , '''\occurs multiple times in classVarString.\\Class not installed.' withCRs.
+            self warn:'class variable ''' , aName , c'''\noccurs multiple times in classVarString.\n\nClass not installed.'.
             ^ false.
         ]
     ].
@@ -2435,7 +2433,7 @@
                 self warn:('Class variable "%1"\conflicts with corresponding private classes name.\The name will refer to the class variable.'
                             bindWith:conflicts first) withCRs.
             ] ifFalse:[
-                self warn:('Some class variables conflict with corresponding private classes name.\Names will refer to the class variable.' withCRs).
+                self warn:(c'Some class variables conflict with corresponding private classes name.\nNames will refer to the class variable.').
             ].
             ^ true.
         ]