--- a/Method.st	Fri Jun 28 15:47:23 1996 +0200
+++ b/Method.st	Fri Jun 28 17:32:42 1996 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 14:32:15'                   !
+
 CompiledCode subclass:#Method
 	instanceVariableNames:'source sourcePosition category package'
 	classVariableNames:'PrivateMethodSignal LastFileReference LastSourceFileName
@@ -18,7 +20,7 @@
 	category:'Kernel-Methods'
 !
 
-!Method class methodsFor:'documentation'!
+!Method  class methodsFor:'documentation'!
 
 copyright
 "
@@ -135,7 +137,7 @@
 "
 ! !
 
-!Method class methodsFor:'initialization'!
+!Method  class methodsFor:'initialization'!
 
 initialize
     "create signals"
@@ -150,7 +152,7 @@
     "Modified: 22.4.1996 / 16:34:38 / cg"
 ! !
 
-!Method class methodsFor:'Signal constants'!
+!Method  class methodsFor:'Signal constants'!
 
 privateMethodSignal
     "return the signal raised when a private/protected method is called
@@ -159,7 +161,7 @@
     ^ PrivateMethodSignal
 ! !
 
-!Method class methodsFor:'binary storage'!
+!Method  class methodsFor:'binary storage'!
 
 binaryDefinitionFrom: stream manager: manager
     "read my definition from stream."
@@ -201,30 +203,31 @@
     sourceFilename := manager nextObject.
     sourcePos := manager nextObject.
     sourcePos isNil ifTrue:[
-	source := manager nextObject.
+        source := manager nextObject.
     ].
     code := manager nextObject.
 
     snapId == ObjectMemory snapshotID ifTrue:[
-	ObjectMemory incrementSnapshotID
+        ObjectMemory incrementSnapshotID
     ].
 
-    m := Method basicNew.
+    m := Method basicNew:(lits size).
     cat notNil ifTrue:[m category:cat].
     m flags:flags.
     m literals:lits.
     m byteCode:code.
     sourcePos isNil ifTrue:[
-	m source:source
+        m source:source
     ] ifFalse:[
-	m sourceFilename:sourceFilename position:sourcePos
+        m sourceFilename:sourceFilename position:sourcePos
     ].
     ^ m
 
     "Created: 16.1.1996 / 14:44:08 / cg"
+    "Modified: 24.6.1996 / 12:29:35 / stefan"
 ! !
 
-!Method class methodsFor:'queries'!
+!Method  class methodsFor:'queries'!
 
 isBuiltInClass
     "return true if this class is known by the run-time-system.
@@ -254,7 +257,7 @@
 %}
 ! !
 
-!Method class methodsFor:'special'!
+!Method  class methodsFor:'special'!
 
 flushSourceStreamCache
     LastSourceFileName := nil
@@ -2122,9 +2125,9 @@
     "Created: 17.9.1995 / 15:01:14 / claus"
 ! !
 
-!Method class methodsFor:'documentation'!
+!Method  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.90 1996-06-17 15:22:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.91 1996-06-28 15:32:23 stefan Exp $'
 ! !
 Method initialize!