--- a/ApplicationModel.st	Fri Feb 05 04:50:40 2016 +0000
+++ b/ApplicationModel.st	Thu Feb 11 14:47:41 2016 +0100
@@ -668,7 +668,7 @@
     rev := ''.
 
     (clsRev := self revision) notNil ifTrue: [rev := '  (rev: ', clsRev printString, ')'].
-    msg := "'\' withCRs ," self applicationName asBoldText, rev.
+    msg := "'\' withCRs ," self applicationName allBold, rev.
     ^ msg
 
     "Created: / 13-11-2001 / 12:28:36 / cg"