--- a/CharacterArray.st	Sat Nov 13 13:18:21 1999 +0100
+++ b/CharacterArray.st	Sat Nov 13 13:19:42 1999 +0100
@@ -2245,6 +2245,14 @@
 
 !CharacterArray methodsFor:'Compatibility - Squeak'!
 
+capitalized
+    ^ self asUppercaseFirst
+
+    "
+     'hello' capitalized
+    "
+!
+
 findTokens:delimiters
     ^ self asCollectionOfSubstringsSeparatedByAny:delimiters
 !
@@ -5477,6 +5485,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.171 1999-11-12 11:31:54 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.172 1999-11-13 12:19:42 cg Exp $'
 ! !
 CharacterArray initialize!