--- a/ToolApplicationModel.st	Thu Oct 22 21:09:13 2009 +0200
+++ b/ToolApplicationModel.st	Thu Oct 22 21:50:50 2009 +0200
@@ -1158,7 +1158,7 @@
     "the image to be displayed in my about-box;
      If nil is returned, thhe ST/X default image is used."
 
-    ^ nil
+    ^ self class defaultIcon
 
     "Created: / 25.7.1998 / 20:33:50 / cg"
 ! !
@@ -1639,5 +1639,9 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.135 2008-12-19 23:02:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.136 2009-10-22 19:50:50 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.136 2009-10-22 19:50:50 cg Exp $'
 ! !