--- a/Unicode16String.st	Thu Sep 15 22:32:43 2005 +0200
+++ b/Unicode16String.st	Wed Sep 21 20:42:55 2005 +0200
@@ -41,7 +41,7 @@
 
 documentation
 "
-    Not yet finished - unicode support is currently being implemented.
+    Not yet fully finished - unicode support is still being implemented.
 "
 ! !
 
@@ -73,6 +73,10 @@
 !Unicode16String methodsFor:'conversion'!
 
 asSymbolIfInterned
+    "Because ST/X does not support non-8-bit symbols, this method
+     has been redefined to only return a symbol, if the receiver does NOT contain
+     any non-8 bit characters."
+
     |s|
 
     Error catch:[
@@ -83,14 +87,20 @@
 !
 
 asUnicode16String
+    "as the receiver already is a unicode-16 string, return it"
+
     ^ self
 !
 
 asUnicodeString
+    "as the receiver already is a unicode string, return it"
+
     ^ self
 !
 
 printOn:aStream
+    "print the receiver utf-8 encoded on aStream"
+
     self utf8EncodedOn:aStream
 ! !
 
@@ -105,7 +115,7 @@
 !Unicode16String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.6 2004-06-16 12:18:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.7 2005-09-21 18:42:55 cg Exp $'
 ! !
 
 Unicode16String initialize!