--- a/Character.st	Thu Mar 07 18:11:09 2019 +0100
+++ b/Character.st	Thu Mar 07 18:22:56 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -323,6 +321,7 @@
     ^ self codePoint:anInteger
 ! !
 
+
 !Character class methodsFor:'accessing untypeable characters'!
 
 controlCharacter:char
@@ -381,6 +380,7 @@
     ^ self codePoint:41
 ! !
 
+
 !Character class methodsFor:'constants'!
 
 backspace
@@ -650,6 +650,7 @@
     "
 ! !
 
+
 !Character methodsFor:'Compatibility-Dolphin'!
 
 isAlphaNumeric
@@ -859,8 +860,8 @@
 
     "
       (Character value:345) sameAs:(Character value:345)
-      $Ж sameAs:$ж 
-      $ж sameAs:$Ж 
+      $Ж sameAs:$ж 
+      $ж sameAs:$Ж 
     "
 
     "Modified (comment): / 28-03-2017 / 16:19:48 / stefan"
@@ -1558,7 +1559,7 @@
     ^ s contents
 
     "
-     'ä' utf8Encoded
+     'ä' utf8Encoded
      'a' utf8Encoded
     "
 
@@ -1566,8 +1567,9 @@
 !
 
 withoutDiacritics
+    <resource: #todo>
     "return a character with same letter as the receiver, but in without diacritics modifiers
-     (mapping e.g. Ä to A).
+     (mapping e.g. Ä to A).
      Returns the receiver if it has no diacritics modifiers."
 
     ^ self shouldImplement
@@ -2753,9 +2755,9 @@
 
     "
      $e asNonDiacritical
-     $é asNonDiacritical
-     $ä asNonDiacritical
-     $Ã¥ asNonDiacritical
+     $é asNonDiacritical
+     $ä asNonDiacritical
+     $å asNonDiacritical
     "
 !