--- a/ApplicationModel.st	Tue May 15 18:09:37 2018 +0200
+++ b/ApplicationModel.st	Tue May 15 18:10:45 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -4137,7 +4139,7 @@
 !
 
 notify:aString
-    "like Objects notify, but translates the string via the
+    "like Object's notify, but translates the string via the
      resourcePack, thus giving a translated string automatically"
 
     super notify:(self translateString:aString) withCRs
@@ -4182,37 +4184,37 @@
 !
 
 warn:aString translate:aBoolean
-    "like Objects warn, but optionally translates the string via the
+    "like Object's warn, but optionally translates the string via the
      resourcePack, thus giving a translated string automatically"
 
     super warn:(aBoolean
-		    ifTrue:[ (self translateString:aString) withCRs ]
-		    ifFalse:[ aString ]).
+                    ifTrue:[ (self translateString:aString) withCRs ]
+                    ifFalse:[ aString ]).
 !
 
 warn:aString with:arg
-    "like Objects warn, but translates the string via the
+    "like Object's warn, but translates the string via the
      resourcePack, thus giving a translated string automatically"
 
     self warn:aString withArguments:(Array with:arg)
 !
 
 warn:aString with:arg1 with:arg2
-    "like Objects warn, but translates the string via the
+    "like Object's warn, but translates the string via the
      resourcePack, thus giving a translated string automatically"
 
     self warn:aString withArguments:(Array with:arg1 with:arg2)
 !
 
 warn:aString with:arg1 with:arg2 with:arg3
-    "like Objects warn, but translates the string via the
+    "like Object's warn, but translates the string via the
      resourcePack, thus giving a translated string automatically"
 
     self warn:aString withArguments:(Array with:arg1 with:arg2 with:arg3)
 !
 
 warn:aString with:arg1 with:arg2 with:arg3 with:arg4
-    "like Objects warn, but translates the string via the
+    "like Object's warn, but translates the string via the
      resourcePack, thus giving a translated string automatically"
 
     self warn:aString withArguments:(Array with:arg1 with:arg2 with:arg3 with:arg4)
@@ -4221,7 +4223,7 @@
 !
 
 warn:aString withArguments:argArray
-    "like Objects warn, but translates the string via the
+    "like Object's warn, but translates the string via the
      resourcePack, thus giving a translated string automatically.
      Also translates \'s to newLine."