--- a/Character.st	Mon Mar 06 09:58:59 2006 +0100
+++ b/Character.st	Mon Mar 06 09:59:08 2006 +0100
@@ -1000,7 +1000,8 @@
 !
 
 asSymbol
-    "return a unique symbol which prints like I print"
+    "Return a unique symbol with the name taken from the receivers characters.
+     Here, a single character symbol is returned."
 
     ^ Symbol internCharacter:self
 !
@@ -2757,5 +2758,5 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.126 2006-02-20 13:38:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.127 2006-03-06 08:59:08 cg Exp $'
 ! !