--- a/CheapBlock.st	Thu Apr 20 20:04:43 1995 +0200
+++ b/CheapBlock.st	Mon May 01 23:30:32 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.4 1995-02-05 21:28:39 claus Exp $
+$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.5 1995-05-01 21:28:40 claus Exp $
 '!
 
 !CheapBlock class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.4 1995-02-05 21:28:39 claus Exp $
+$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.5 1995-05-01 21:28:40 claus Exp $
 "
 !
 
@@ -64,38 +64,6 @@
 "
 ! !
 
-!CheapBlock class methodsFor:'instance creation'!
-
-code:codeAddress byteCode:bCode numArgs:numArgs sourcePosition:sourcePos initialPC:initialPC literals:literals dynamic:dynamic
-    "create a new cheap (homeless) block.
-     Not for public use - special hook for the compiler."
-
-    |newBlock|
-
-    newBlock := super basicNew code:codeAddress 
-			   byteCode:bCode
-			   numArgs:numArgs
-		     sourcePosition:sourcePos
-			  initialPC:initialPC
-			   literals:literals
-			    dynamic:dynamic.
-    ^ newBlock
-! !
-
-!CheapBlock methodsFor:'private accessing'!
-
-code:codeAddress byteCode:bCode numArgs:numArgs sourcePosition:srcPos initialPC:iPC literals:lits dynamic:dynamic
-    "set all relevant internals"
-
-    self code:codeAddress.
-    byteCode := bCode.
-    nargs := numArgs.
-    sourcePos := srcPos.
-    initialPC := iPC.
-    literals := lits.
-    self dynamic:dynamic
-! !
-
 !CheapBlock methodsFor:'accessing'!
 
 selfValue