--- a/CharacterSet.st	Tue Mar 19 10:22:40 2013 +0100
+++ b/CharacterSet.st	Tue Mar 19 10:22:42 2013 +0100
@@ -55,6 +55,9 @@
 !CharacterSet methodsFor:'adding & removing'!
 
 add:aCharacter
+    "add aCharacter to the collection.
+     Returns aCharacter (sigh)"
+
     |cp byteIndex bitIndex|
 
     cp := aCharacter codePoint.
@@ -137,5 +140,6 @@
 !CharacterSet class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/CharacterSet.st,v 1.1 2011-01-28 16:52:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/CharacterSet.st,v 1.2 2013-03-19 09:22:42 cg Exp $'
 ! !
+