--- 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 $'
 ! !