--- a/Class.st	Tue Nov 21 13:10:41 2017 +0100
+++ b/Class.st	Tue Nov 21 13:11:05 2017 +0100
@@ -2089,62 +2089,6 @@
     "Modified: 4.6.1997 / 14:48:02 / cg"
 ! !
 
-!Class methodsFor:'binary storage'!
-
-storeBinaryDefinitionOn: stream manager: manager
-    "store the receiver in a binary format on stream.
-     This is an internal interface for binary storage mechanism.
-     classes only store the name, signature and instvar names.
-     They restore by looking for that name in the Smalltalk dictionary.
-     However, using the signature, a check for being valid is made at
-     restore time.
-     This avoids a full recursive store of a class in the normal binary
-     storage - however, it also means that a classes semantics cannot
-     be stored with the basic storeBinary operation
-     (we depend on the class being present at binaryLoad time.
-    To store classes, use #storeBinaryClassOn:manager: or BOSS>>nextPutClasses:."
-
-    |varnames n sz|
-
-    "/
-    "/ output the signature
-    "/
-    stream nextNumber:4 put:self signature MSB:true.
-
-    varnames := self allInstVarNames.
-    n := varnames size.
-    n == 0 ifTrue:[
-        sz := 0
-    ] ifFalse:[
-        sz := varnames inject:0 into:[:sum :nm | sum + nm size].
-        sz := sz + n - 1.
-    ].
-    "/
-    "/ output the nmber of instvars
-    "/ followed by each instvar name
-    "/
-    stream nextNumber:2 put:sz MSB:true.
-    varnames keysAndValuesDo:[:i :nm |
-        stream nextPutBytes:(nm size) from:nm startingAt:1.
-        i ~~ n ifTrue:[stream nextPut:(Character space codePoint)]
-    ].
-
-    "/
-    "/ output my name
-    "/
-    stream nextNumber:2 put:name size MSB:true.
-    stream nextPutBytes:(name size) from:name startingAt:1.
-
-    "
-     |s|
-     s := WriteStream on:ByteArray new.
-     Rectangle storeBinaryOn:s.
-     Object readBinaryFrom:(ReadStream on:s contents)
-    "
-
-    "Modified: / 19-03-1997 / 18:47:10 / cg"
-    "Modified (comment): / 25-08-2017 / 09:01:26 / cg"
-! !
 
 !Class methodsFor:'changes management'!
 
@@ -3090,14 +3034,15 @@
 binaryFileOut
     "create a file 'class.cls' (in the current projects fileOut-directory),
      consisting of all methods in myself in a portable binary format.
-     The methods source is saved by reference
+     The methods sources are saved by reference
      to the classes sourceFile if there is any.
      That sourcefile needs to be present after reload in order to be
      browsable."
 
     self binaryFileOutWithSourceMode:#reference
 
-    "Modified: 5.1.1997 / 15:40:05 / cg"
+    "Modified: / 05-01-1997 / 15:40:05 / cg"
+    "Modified (comment): / 21-11-2017 / 12:58:26 / cg"
 !
 
 binaryFileOutOn:aStream