--- a/BlockContext.st	Thu Jul 19 11:23:33 2012 +0200
+++ b/BlockContext.st	Thu Jul 19 11:24:00 2012 +0200
@@ -113,12 +113,6 @@
     "Created: / 5.3.1998 / 16:20:31 / stefan"
 !
 
-isBlockContext
-    "return true, iff the receiver is a BlockContext, false otherwise"
-
-    ^ true
-!
-
 method
     "return the method in which the current contexts block was created."
 
@@ -240,8 +234,29 @@
     "Modified: / 19-07-2012 / 11:02:41 / cg"
 ! !
 
+!BlockContext methodsFor:'testing'!
+
+isBlockContext
+    "return true, iff the receiver is a BlockContext, false otherwise"
+
+    ^ true
+!
+
+isCheapBlockContext
+    "return true, iff the receiver is a BlockContext, for a cheap block, false otherwise.
+     Cheap blocks do not refer to their home"
+
+    ^ home isNil
+
+    "Created: / 19-07-2012 / 11:22:23 / cg"
+! !
+
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.34 2012-07-19 09:03:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.35 2012-07-19 09:24:00 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.35 2012-07-19 09:24:00 cg Exp $'
 ! !