--- a/CheapBlock.st	Fri Mar 25 17:00:07 2016 +0100
+++ b/CheapBlock.st	Fri Mar 25 17:01:01 2016 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Block variableSubclass:#CheapBlock
 	instanceVariableNames:'selfValue method'
 	classVariableNames:''
@@ -85,8 +87,8 @@
 !CheapBlock methodsFor:'accessing'!
 
 homeMethod
-    "return the receivers home method.
-     Thats the method where the block was created."
+    "return the receiver's home method.
+     That's the method where the block was created."
 
     ^ method
 
@@ -95,8 +97,8 @@
 !
 
 method
-    "return the receivers home method.
-     Thats the method where the block was created.
+    "return the receiver's home method.
+     That's the method where the block was created.
      Obsolete: use #homeMethod for ST80 compatibility."
 
     ^ method
@@ -111,7 +113,7 @@
 !
 
 setMethod:aMethod
-    "set the receivers home method.
+    "set the receiver's home method.
      This is a private entry for the compiler"
 
     method := aMethod
@@ -187,6 +189,6 @@
 !CheapBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.22 2014-11-06 05:30:07 stefan Exp $'
+    ^ '$Header$'
 ! !