--- a/BlockContext.st	Tue Jun 26 17:32:15 2018 +0200
+++ b/BlockContext.st	Tue Jun 26 20:00:39 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -213,7 +211,9 @@
             ].
             className printOn:aStream. 
             aStream nextPutAll:'>>'.
+            aStream bold.
             m selector printOn:aStream.
+            aStream normal.
         ].
         ^ self.
     ].
@@ -254,10 +254,13 @@
         ]
     ].
     aStream nextPutAll:'[] in '; nextPutAll:className; nextPutAll:'>>'.
+    aStream bold.
     homeSel printOn:aStream.
+    aStream normal.
 
     "Modified: / 19-07-2012 / 11:02:41 / cg"
     "Modified (format): / 13-02-2017 / 19:56:14 / cg"
+    "Modified: / 26-06-2018 / 19:25:02 / Claus Gittinger"
 ! !
 
 !BlockContext methodsFor:'testing'!