--- a/ToolApplicationModel.st	Thu Aug 13 18:41:10 1998 +0200
+++ b/ToolApplicationModel.st	Fri Aug 14 13:04:21 1998 +0200
@@ -856,11 +856,18 @@
 
     |box|
 
+    AboutBox isNil ifTrue:[
+        "/ this handles bad installations of ST/X,
+        "/ where the AboutBox is missing.
+        "/ (May vanish in the future)
+        ^ self information:('Smalltalk/X rev.' , Smalltalk versionString)
+    ].
+
     box := AboutBox new.
     box autoHideAfter:10 with:[].
     box showAtPointer
 
-    "Modified: / 8.8.1998 / 01:12:30 / cg"
+    "Modified: / 14.8.1998 / 13:03:58 / cg"
 !
 
 openAboutThisApplication
@@ -868,19 +875,28 @@
      Extracts some common info (i.e. class revision, author etc. from
      the classes documentation."
 
-    |rev box myClass clsRev image|
+    |rev box myClass clsRev image msg|
 
     rev := ''.
     myClass := self class.
 
     (clsRev := myClass revision) notNil ifTrue: [rev := '  (rev: ', clsRev printString, ')'].
-    box := AboutBox title:
-        '\The application\\' withCRs
+
+    msg := '\The application\\' withCRs
         , myClass name asBoldText, rev
         , '\\has been designed and implemented by: \' withCRs
         , ((self class authorLinesForAboutBox collect:[:l | '- ' , l]) asStringWith:$\) withCRs
         , '\\' withCRs.
 
+    AboutBox isNil ifTrue:[
+        "/ this handles bad installations of ST/X,
+        "/ where the AboutBox is missing.
+        "/ (May vanish in the future)
+        ^ self information:msg
+    ].
+
+    box := AboutBox title:msg.
+
     image := self aboutImage.
     image notNil ifTrue:[
         box image:image
@@ -889,7 +905,7 @@
     box   autoHideAfter:10 with:[].
     box   showAtPointer.
 
-    "Modified: / 8.8.1998 / 01:12:38 / cg"
+    "Modified: / 14.8.1998 / 13:04:03 / cg"
 !
 
 openHTMLDocument: aHTMLFilename
@@ -1223,5 +1239,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.71 1998-08-08 11:41:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.72 1998-08-14 11:04:21 cg Exp $'
 ! !