--- a/ToolApplicationModel.st	Thu Feb 11 14:47:41 2016 +0100
+++ b/ToolApplicationModel.st	Thu Feb 11 14:48:02 2016 +0100
@@ -1195,7 +1195,7 @@
     ].
 
     msg := '\The application\\' withCRs
-        , myClass name asBoldText, rev
+        , myClass name allBold, rev
         , '\\has been designed and implemented by: \' withCRs
         , ((self class authorLinesForAboutBox collect:[:l | '    ' , l]) asStringWith:$\) withCRs
         , '\\' withCRs.
@@ -1302,7 +1302,7 @@
     (clsRev := myClass revision) notNil ifTrue: [rev := '  (rev: ', clsRev printString, ')'].
 
     msg := '\The application\\' withCRs
-        , myClass name asBoldText, rev
+        , myClass name allBold, rev
         , '\\has been designed and implemented by: \' withCRs
         , ((self class authorLinesForAboutBox collect:[:l | '- ' , l]) asStringWith:$\) withCRs
         , '\\' withCRs.