--- a/ToolApplicationModel.st	Thu Feb 11 16:50:10 2016 +0100
+++ b/ToolApplicationModel.st	Sat Feb 13 21:21:43 2016 +0100
@@ -461,7 +461,7 @@
         [
             |desktopIcon|
             desktopIcon := Icon stxIcon.
-            desktopIcon magnifiedBy: Display preferredIconSize/desktopIcon extent
+            desktopIcon magnifiedBy:Screen current preferredIconSize/desktopIcon extent
         ]
 
     "Modified: / 24.8.1998 / 21:34:38 / cg"
@@ -476,10 +476,9 @@
         constantNamed:#'ToolApplicationModel menuIcon'
         ifAbsentPut:
         [
-            |menuIcon myDevice|
+            |menuIcon|
             menuIcon := Icon stxIcon.
-            myDevice := Screen current.
-            menuIcon magnifiedBy: (MenuPanel defaultFont heightOn:myDevice)/menuIcon height
+            menuIcon magnifiedBy: (MenuPanel defaultFont heightOn:Screen current)/menuIcon height
         ]
 
     "Modified: / 24.8.1998 / 21:34:33 / cg"