--- a/Unicode16String.st	Sat Feb 21 00:56:40 2015 +0100
+++ b/Unicode16String.st	Sat Feb 21 00:59:30 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 TwoByteString variableWordSubclass:#Unicode16String
 	instanceVariableNames:''
 	classVariableNames:''
@@ -59,8 +61,6 @@
     "Modified: 30.6.1997 / 15:39:21 / cg"
 ! !
 
-
-
 !Unicode16String class methodsFor:'reading'!
 
 readFrom:aStreamOrString onError:exceptionBlock
@@ -125,6 +125,8 @@
     "display myself as on aStream.
      You must use an ISO10646 unicode font to display this string"
 
+    "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
+    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
     aGCOrStream isStream ifTrue:[
         aGCOrStream
             nextPut:$';
@@ -207,14 +209,15 @@
     ^ true
 ! !
 
+
 !Unicode16String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.22 2014-12-04 17:43:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.23 2015-02-20 23:59:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.22 2014-12-04 17:43:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Unicode16String.st,v 1.23 2015-02-20 23:59:30 cg Exp $'
 ! !