--- a/Class.st	Fri Mar 21 15:43:07 1997 +0100
+++ b/Class.st	Fri Mar 21 15:45:05 1997 +0100
@@ -1290,14 +1290,16 @@
 
 !Class methodsFor:'binary storage'!
 
-addGlobalsTo: globalDictionary manager: manager
+addGlobalsForBinaryStorageTo:globalDictionary
 "
     classPool == nil ifFalse: [
-	classPool associationsDo: [:assoc|
-	    globalDictionary at: assoc put: self
-	]
+        classPool associationsDo: [:assoc|
+            globalDictionary at: assoc put: self
+        ]
     ]
 "
+
+    "Created: 21.3.1997 / 15:40:45 / cg"
 !
 
 binaryClassDefinitionFrom:stream manager:manager
@@ -4913,6 +4915,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.261 1997-03-19 18:49:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.262 1997-03-21 14:45:05 cg Exp $'
 ! !
 Class initialize!