--- a/CharacterArray.st	Mon Mar 01 21:57:43 2004 +0100
+++ b/CharacterArray.st	Mon Mar 01 21:59:24 2004 +0100
@@ -3329,6 +3329,8 @@
     firstCharAsLowercase := firstChar asLowercase.
     firstChar == firstCharAsLowercase ifTrue:[ ^ self].
 
+    "/ mhmh - the code below assumes, that the titlecase character NEVER has
+    "/ a smaller bitsPerCharacter value. Is this true ?
     newString := firstCharAsLowercase stringSpecies fromString:self.
     newString at:1 put:firstCharAsLowercase.
     ^ newString
@@ -3585,15 +3587,16 @@
     |newString firstChar firstCharAsTitlecase|
 
     firstChar := (self at:1).
-    firstCharAsTitlecase := firstChar asUppercase.
+    firstCharAsTitlecase := firstChar asTitlecase.
     firstChar == firstCharAsTitlecase ifTrue:[ ^ self].
-
+    "/ mhmh - the code below assumes, that the titlecase character NEVER has
+    "/ a smaller bitsPerCharacter value. Is this true ?
     newString := firstCharAsTitlecase stringSpecies fromString:self.
     newString at:1 put:firstCharAsTitlecase.
     ^ newString
 
     "
-     'helloWorld' asTitlecaseFirst 
+     'helloWorld' asTitlecaseFirst   
      'HelloWorld' asTitlecaseFirst   
     "
 !
@@ -3656,6 +3659,8 @@
     firstCharAsUppercase := firstChar asUppercase.
     firstChar == firstCharAsUppercase ifTrue:[ ^ self].
 
+    "/ mhmh - the code below assumes, that the titlecase character NEVER has
+    "/ a smaller bitsPerCharacter value. Is this true ?
     newString := firstCharAsUppercase stringSpecies fromString:self.
     newString at:1 put:firstCharAsUppercase.
     ^ newString
@@ -6280,7 +6285,7 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.288 2004-03-01 20:57:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.289 2004-03-01 20:59:24 cg Exp $'
 ! !
 
 CharacterArray initialize!