--- a/Block.st	Mon Mar 24 12:28:33 2014 +0100
+++ b/Block.st	Mon Mar 24 13:12:26 2014 +0100
@@ -664,7 +664,6 @@
 ! !
 
 
-
 !Block methodsFor:'accessing'!
 
 home
@@ -2968,6 +2967,10 @@
     ^ true
 !
 
+isCheapBlock
+    ^ false
+!
+
 isVarArgBlock
     "return true, if this block accepts a variable number of arguments"
 
@@ -3137,11 +3140,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.203 2014-03-07 22:06:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.204 2014-03-24 12:12:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.203 2014-03-07 22:06:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.204 2014-03-24 12:12:26 stefan Exp $'
 ! !