--- a/Block.st	Thu Oct 17 15:07:29 1996 +0200
+++ b/Block.st	Thu Oct 17 15:08:17 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 14:32:20'                   !
-
 CompiledCode subclass:#Block
 	instanceVariableNames:'home nargs sourcePos initialPC'
 	classVariableNames:'InvalidNewSignal'
@@ -19,7 +17,7 @@
 	category:'Kernel-Methods'
 !
 
-!Block  class methodsFor:'documentation'!
+!Block class methodsFor:'documentation'!
 
 copyright
 "
@@ -302,7 +300,7 @@
 "
 ! !
 
-!Block  class methodsFor:'initialization'!
+!Block class methodsFor:'initialization'!
 
 initialize
     "create signals raised by various errors"
@@ -316,25 +314,24 @@
     "Modified: 22.4.1996 / 16:34:20 / cg"
 ! !
 
-!Block  class methodsFor:'instance creation'!
+!Block class methodsFor:'instance creation'!
 
-code:codeAddress byteCode:bCode numArgs:numArgs sourcePosition:sourcePos initialPC:initialPC literals:literals dynamic:dynamic
+byteCode:bCode numArgs:numArgs sourcePosition:sourcePos initialPC:initialPC literals:literals
     "create a new cheap (homeless) block.
      Not for public use - this is a special hook for the compiler."
 
     |newBlock|
 
     newBlock := (super basicNew:(literals size)) 
-                           code:codeAddress 
                            byteCode:bCode
                            numArgs:numArgs
                      sourcePosition:sourcePos
                           initialPC:initialPC
-                           literals:literals
-                            dynamic:dynamic.
+                           literals:literals.
     ^ newBlock
 
     "Modified: 24.6.1996 / 12:36:48 / stefan"
+    "Created: 17.10.1996 / 14:04:17 / cg"
 !
 
 new
@@ -349,7 +346,7 @@
     ^ InvalidNewSignal raise.
 ! !
 
-!Block  class methodsFor:'queries'!
+!Block class methodsFor:'queries'!
 
 isBuiltInClass
     "return true if this class is known by the run-time-system.
@@ -1184,20 +1181,19 @@
 
 !Block methodsFor:'private accessing'!
 
-code:codeAddress byteCode:bCode numArgs:numArgs sourcePosition:srcPos initialPC:iPC literals:lits dynamic:dynamic
+byteCode:bCode numArgs:numArgs sourcePosition:srcPos initialPC:iPC literals:lits
     "set all relevant internals.
-     DANGER ALERT: this interface is for the compiler only."
+     DANGER ALERT: this interface is strictly private."
 
-    self code:codeAddress.
     byteCode := bCode.
     nargs := numArgs.
     sourcePos := srcPos.
     initialPC := iPC.
     self literals:lits.
-    self dynamic:dynamic
 
     "Modified: 23.4.1996 / 16:05:30 / cg"
     "Modified: 24.6.1996 / 12:37:37 / stefan"
+    "Created: 17.10.1996 / 14:05:45 / cg"
 !
 
 initialPC:initial 
@@ -1372,9 +1368,9 @@
     ^ self value        "the real logic is in Context>>unwind"
 ! !
 
-!Block  class methodsFor:'documentation'!
+!Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.61 1996-09-22 13:01:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.62 1996-10-17 13:08:17 cg Exp $'
 ! !
 Block initialize!