--- a/SmalltalkLanguage.st	Sun May 15 08:38:43 2016 +0100
+++ b/SmalltalkLanguage.st	Tue May 17 10:05:14 2016 +0100
@@ -41,7 +41,6 @@
     "Modified: / 16-08-2009 / 10:53:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
-
 !SmalltalkLanguage methodsFor:'accessing-classes'!
 
 codeGeneratorClass
@@ -166,16 +165,16 @@
 
     aSelector numArgs > 0 ifTrue:[
         aSelector isKeyword ifTrue:[
-            ^ String streamContents:[:stream |
+            ^ Text streamContents:[:stream |
                 aSelector keywords with:argNames do:[:eachKeyword :eachArgName|
-                    stream nextPutAll:eachKeyword; nextPutAll:eachArgName; space.
+                    stream bold; nextPutAll:eachKeyword; normal; nextPutAll:eachArgName; space.
                 ].
                 stream backStep.   "remove the last space"
              ].
         ].
-        ^ aSelector , ' ' , (argNames at:1)
+        ^ aSelector allBold , ' ' , (argNames at:1)
     ].
-    ^ aSelector
+    ^ aSelector allBold
 
     "
      SmalltalkLanguage instance