--- a/Character.st	Sat Jun 30 18:23:16 2018 +0200
+++ b/Character.st	Sat Jun 30 20:38:23 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -505,9 +507,11 @@
 !
 
 newPage
-    "return the form-feed character"
+    "return the form-feed (newPage) character"
 
     ^ Character codePoint:12
+
+    "Modified (comment): / 30-06-2018 / 20:37:59 / Claus Gittinger"
 !
 
 nl
@@ -520,6 +524,14 @@
     ^ Character codePoint:0
 !
 
+pageUp
+    "return the pageUp control character"
+
+    ^ Character codePoint:11
+
+    "Created: / 30-06-2018 / 20:36:42 / Claus Gittinger"
+!
+
 quote
     "return the single-quote character"
 
@@ -848,8 +860,8 @@
 
     "
       (Character value:345) sameAs:(Character value:345)
-      $Ж sameAs:$ж 
-      $ж sameAs:$Ж 
+      $Ж sameAs:$ж 
+      $ж sameAs:$Ж 
     "
 
     "Modified (comment): / 28-03-2017 / 16:19:48 / stefan"
@@ -1547,7 +1559,7 @@
     ^ s contents
 
     "
-     'ä' utf8Encoded
+     'ä' utf8Encoded
      'a' utf8Encoded
     "
 
@@ -1556,7 +1568,7 @@
 
 withoutDiacritics
     "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
@@ -2720,9 +2732,9 @@
 
     "
      $e asNonDiacritical
-     $é asNonDiacritical
-     $ä asNonDiacritical
-     $å asNonDiacritical
+     $é asNonDiacritical
+     $ä asNonDiacritical
+     $Ã¥ asNonDiacritical
     "
 !