--- a/BlockContext.st	Wed Nov 05 15:22:09 2008 +0100
+++ b/BlockContext.st	Wed Nov 05 15:22:16 2008 +0100
@@ -191,7 +191,7 @@
         m isNil ifTrue:[
             ^ '[] (optimized) in ???'.
         ].
-        ^ '[] (optimized) in ' , m mclass name , ' >> #' , m selector.
+        ^ '[] (optimized) in ' , m mclass name , ' >> ' , m selector.
     ].
 
     mHome := self methodHome.
@@ -232,7 +232,7 @@
             className := '???'
         ]
     ].
-    ^ '[] in ' , className , ' >> #' , sel
+    ^ '[] in ' , className , ' >> ' , sel
 
     "Modified: 10.1.1997 / 21:26:21 / cg"
 ! !
@@ -240,5 +240,5 @@
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.32 2008-11-04 09:14:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.33 2008-11-05 14:22:16 cg Exp $'
 ! !