--- a/Symbol.st	Mon Apr 22 16:05:51 1996 +0200
+++ b/Symbol.st	Mon Apr 22 16:18:11 1996 +0200
@@ -130,8 +130,12 @@
 
 !Symbol class methodsFor:'binary storage'!
 
-binaryDefinitionFrom: stream manager: manager
-    ^ self intern: (super binaryDefinitionFrom: stream manager: manager)
+binaryDefinitionFrom:stream manager:manager
+    "retrieve a symbol from a binary input stream (nonpublic interface)"
+
+    ^ self intern:(super binaryDefinitionFrom:stream manager:manager)
+
+    "Modified: 22.4.1996 / 16:15:56 / cg"
 ! !
 
 !Symbol class methodsFor:'queries'!
@@ -515,5 +519,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.40 1996-04-19 10:40:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.41 1996-04-22 14:17:55 cg Exp $'
 ! !

--- a/TwoByteString.st	Mon Apr 22 16:05:51 1996 +0200
+++ b/TwoByteString.st	Mon Apr 22 16:18:11 1996 +0200
@@ -43,13 +43,15 @@
 !TwoByteString class methodsFor:'initialization'!
 
 initialize
+    "initialize the class - private"
+
     self flags:(Behavior flagWords)
 
     "
      TwoByteString initialize
     "
 
-    "Modified: 18.4.1996 / 17:56:32 / cg"
+    "Modified: 22.4.1996 / 16:14:14 / cg"
 ! !
 
 !TwoByteString class methodsFor:'instance creation'!
@@ -104,6 +106,6 @@
 !TwoByteString class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.23 1996-04-20 21:08:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/TwoByteString.st,v 1.24 1996-04-22 14:18:11 cg Exp $'
 ! !
 TwoByteString initialize!