--- a/CheapBlock.st	Mon Mar 24 13:12:26 2014 +0100
+++ b/CheapBlock.st	Mon Mar 24 13:12:37 2014 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Block variableSubclass:#CheapBlock
@@ -179,8 +178,15 @@
     "Modified: 1.11.1996 / 16:21:19 / cg"
 ! !
 
+!CheapBlock methodsFor:'testing'!
+
+isCheapBlock
+    ^ true
+! !
+
 !CheapBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.20 2000-04-01 13:05:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.21 2014-03-24 12:12:37 stefan Exp $'
 ! !
+