--- a/ToolApplicationModel.st	Mon Jun 29 16:47:20 1998 +0200
+++ b/ToolApplicationModel.st	Mon Jun 29 16:55:19 1998 +0200
@@ -286,7 +286,7 @@
         ifAbsentPut:
         [
             |desktopIcon|
-            desktopIcon := self stxIcon.
+            desktopIcon := Icon stxIcon.
             desktopIcon magnifiedBy: Display preferredIconSize/desktopIcon extent
         ]
 
@@ -303,7 +303,7 @@
         ifAbsentPut:
         [
             |menuIcon|
-            menuIcon := self stxIcon.
+            menuIcon := Icon stxIcon.
             menuIcon magnifiedBy: MenuPanel defaultFont height/menuIcon height
         ]
 ! !
@@ -1199,5 +1199,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.62 1998-06-29 14:44:52 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.63 1998-06-29 14:55:19 tz Exp $'
 ! !