--- a/Symbol.st	Wed Aug 23 16:05:45 2006 +0200
+++ b/Symbol.st	Wed Aug 23 16:05:48 2006 +0200
@@ -146,15 +146,6 @@
     "Created: 18.4.1997 / 20:52:20 / cg"
 ! !
 
-!Symbol class methodsFor:'binary storage'!
-
-binaryDefinitionFrom:stream manager:manager
-    "retrieve a symbol from a binary input stream (nonpublic interface)"
-
-    ^ self intern:(super binaryDefinitionFrom:stream manager:manager)
-
-    "Modified: / 2.11.1997 / 16:17:06 / cg"
-! !
 
 !Symbol class methodsFor:'queries'!
 
@@ -249,39 +240,6 @@
     ^ self basicAt:index put:(value asCharacter)
 ! !
 
-!Symbol methodsFor:'binary storage'!
-
-storeBinaryDefinitionOn:stream manager:manager
-    "append a binary representation of the receiver onto stream.
-     Redefined since short Symbol can be stored with a special type code 
-     in a more compact way.
-     This is an internal interface for the binary storage mechanism."
-
-    |myClass myBasicSize|
-
-    "/ not for subclasses with named instVars.
-    (myClass := self class) instSize ~~ 0 ifTrue:[
-	^ super storeBinaryDefinitionOn:stream manager:manager
-    ].
-
-    myBasicSize := self basicSize.
-
-    "/ can use a more compact representation;
-    "/ but not for subclasses ...
-
-    ((myClass == Symbol) 
-    and:[myBasicSize <= 255]) ifTrue:[
-	"/ special encoding: <codeForSymbol> <len> <bytes> ...
-	stream nextPut:(manager codeForSymbol); nextPut:myBasicSize.
-    ] ifFalse:[
-	manager putIdOfClass:myClass on:stream.
-	stream nextNumber:4 put:myBasicSize.
-    ].
-    stream nextPutBytes:myBasicSize from:self startingAt:1.
-
-    "Modified: / 2.11.1997 / 15:28:56 / cg"
-    "Created: / 2.11.1997 / 16:13:47 / cg"
-! !
 
 !Symbol methodsFor:'comparing'!
 
@@ -734,5 +692,5 @@
 !Symbol class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.81 2006-03-06 08:59:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.82 2006-08-23 14:05:48 cg Exp $'
 ! !