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