--- a/Class.st	Tue Oct 08 16:49:06 1996 +0200
+++ b/Class.st	Tue Oct 08 18:58:10 1996 +0200
@@ -938,6 +938,16 @@
     "retrieve a class as stored previously with
      #storeBinaryClassOn:manager:"
 
+    ^ self
+        binaryClassDefinitionFrom:stream manager:manager in:Smalltalk
+
+    "Modified: 8.10.1996 / 17:57:26 / cg"
+!
+
+binaryClassDefinitionFrom:stream manager:manager in:anEnvironment
+    "retrieve a class as stored previously with
+     #storeBinaryClassOn:manager: and store it in anEnvironment (may be nil)"
+
     |superclassName name flags instvars classvars category classInstVars
      comment package superclassSig
      newClass superClass  methods  cmethods|
@@ -1005,7 +1015,7 @@
     (superClass notNil or:[superclassName isNil]) ifTrue:[
         newClass := superClass class
                 name:name asSymbol
-                in:Smalltalk
+                in:anEnvironment
                 subclassOf:superClass
                 instanceVariableNames:instvars
                 variable:false
@@ -1037,6 +1047,7 @@
 
     "Modified: 26.5.1996 / 11:55:15 / cg"
     "Modified: 7.6.1996 / 13:43:06 / stefan"
+    "Created: 8.10.1996 / 17:57:02 / cg"
 !
 
 storeBinaryClassOn:stream manager:manager
@@ -4042,6 +4053,6 @@
 !Class  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.171 1996-10-01 14:49:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.172 1996-10-08 16:58:10 cg Exp $'
 ! !
 Class initialize!