--- a/AboutBox.st	Tue May 25 15:41:36 1999 +0200
+++ b/AboutBox.st	Tue May 25 15:52:41 1999 +0200
@@ -97,11 +97,14 @@
      Can be redefined in custom subclasses."
 
     CachedIcon isNil ifTrue:[
-        CachedIcon := Image fromFile:'bitmaps/SmalltalkX.xbm' resolution:100.
+        CachedIcon := Icon stxIcon.
+        CachedIcon isNil ifTrue:[
+            CachedIcon := Image fromFile:'bitmaps/SmalltalkX.xbm' resolution:100.
+        ]
     ].
     ^ CachedIcon
 
-    "Modified: 23.4.1996 / 17:09:48 / cg"
+    "Modified: / 25.5.1999 / 15:44:48 / cg"
 !
 
 defaultLabel
@@ -167,5 +170,5 @@
 !AboutBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.21 1998-08-04 00:28:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.22 1999-05-25 13:52:41 cg Exp $'
 ! !