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