--- a/CheapBlk.st	Mon Oct 21 11:57:10 1996 +0200
+++ b/CheapBlk.st	Mon Oct 21 15:05:28 1996 +0200
@@ -90,6 +90,15 @@
     "return the copied self"
 
     ^ selfValue
+!
+
+setMethod:aMethod
+    "set the receivers home method.
+     This is a private entry for the compiler"
+
+    method := aMethod
+
+    "Created: 21.10.1996 / 13:58:29 / cg"
 ! !
 
 !CheapBlock methodsFor:'printing & storing'!
@@ -127,5 +136,5 @@
 !CheapBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CheapBlk.st,v 1.14 1996-04-25 16:49:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CheapBlk.st,v 1.15 1996-10-21 13:05:28 cg Exp $'
 ! !

--- a/CheapBlock.st	Mon Oct 21 11:57:10 1996 +0200
+++ b/CheapBlock.st	Mon Oct 21 15:05:28 1996 +0200
@@ -90,6 +90,15 @@
     "return the copied self"
 
     ^ selfValue
+!
+
+setMethod:aMethod
+    "set the receivers home method.
+     This is a private entry for the compiler"
+
+    method := aMethod
+
+    "Created: 21.10.1996 / 13:58:29 / cg"
 ! !
 
 !CheapBlock methodsFor:'printing & storing'!
@@ -127,5 +136,5 @@
 !CheapBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.14 1996-04-25 16:49:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.15 1996-10-21 13:05:28 cg Exp $'
 ! !