--- a/Character.st Sun Apr 03 07:04:52 2016 +0200
+++ b/Character.st Fri Apr 08 07:02:36 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -1489,7 +1491,7 @@
|s|
asciivalue <= 16r7F ifTrue:[
- ^ self asString.
+ ^ self asString.
].
s := WriteStream on:(String new:6).
@@ -1497,7 +1499,8 @@
^ s contents
"
- 'ä' utf8Encoded
+ 'ä' utf8Encoded
+ 'a' utf8Encoded
"
! !
@@ -2565,9 +2568,9 @@
"
$e asNonDiacritical
- $é asNonDiacritical
- $ä asNonDiacritical
- $å asNonDiacritical
+ $é asNonDiacritical
+ $ä asNonDiacritical
+ $Ã¥ asNonDiacritical
"
!