--- a/CharacterArray.st	Thu Nov 15 09:50:38 2001 +0100
+++ b/CharacterArray.st	Thu Nov 15 09:52:54 2001 +0100
@@ -3858,6 +3858,7 @@
 allBold
     "return a test object representing the receiver, but all boldified"
 
+    Text isNil ifTrue:[^ self].
     ^ self asText allBold
 
     "
@@ -3869,6 +3870,7 @@
 allItalic
     "return a test object representing the receiver, but all in italic"
 
+    Text isNil ifTrue:[^ self].
     ^ self asText allItalic
 
     "
@@ -5998,6 +6000,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.214 2001-11-13 18:51:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.215 2001-11-15 08:52:43 cg Exp $'
 ! !
 CharacterArray initialize!

--- a/Smalltalk.st	Thu Nov 15 09:50:38 2001 +0100
+++ b/Smalltalk.st	Thu Nov 15 09:52:54 2001 +0100
@@ -5818,7 +5818,7 @@
      but I dont use it here, to allow mini-systems without
      Resource-stuff."
 
-    |proto lang stx|
+    |proto lang|
 
     lang := Language.
     (lang == #de) ifTrue:[
@@ -5841,12 +5841,7 @@
         proto := 'Hello World - here is %1 version %2 of %3'.
     ].
 
-    stx := 'SmallTalk/X'.
-    Text notNil ifTrue:[
-	stx := Text string:stx emphasis:#bold
-    ].
-
-    ^ proto bindWith:stx
+    ^ proto bindWith:('SmallTalk/X' allBold)
                 with:(self versionString) 
                 with:(self versionDate)
 
@@ -6084,5 +6079,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.512 2001-11-15 08:50:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.513 2001-11-15 08:52:54 cg Exp $'
 ! !