--- a/CheapBlock.st	Wed Nov 05 23:35:20 2014 +0100
+++ b/CheapBlock.st	Thu Nov 06 06:30:07 2014 +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
         ].
@@ -187,6 +187,6 @@
 !CheapBlock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.21 2014-03-24 12:12:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CheapBlock.st,v 1.22 2014-11-06 05:30:07 stefan Exp $'
 ! !