--- a/CheapBlock.st	Tue Feb 04 21:09:59 2014 +0100
+++ b/CheapBlock.st	Wed Apr 01 10:20:10 2015 +0100
@@ -164,7 +164,7 @@
     method notNil ifTrue:[
         who := method who.
         who notNil ifTrue:[
-            aStream nextPutAll:(who methodClass name , '-' , who methodSelector).
+            aStream nextPutAll:(who methodClass name , '>>' , who methodSelector).
             aStream nextPutAll:' (optimized)'.
             ^ self
         ].
@@ -178,15 +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 $'
-!
-
-version_SVN
-    ^ '$Id: CheapBlock.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.22 2014-11-06 05:30:07 stefan Exp $'
 ! !
 
-
-