--- a/Launcher.st	Wed May 29 19:21:20 1996 +0200
+++ b/Launcher.st	Wed May 29 19:23:22 1996 +0200
@@ -1899,8 +1899,10 @@
             ] ifFalse:[
                 img := Image fromFile:iconSpec.
             ].
-            buttonSize notNil ifTrue:[
-                img := img magnifiedTo:buttonSize       
+            (img notNil and:[buttonSize notNil]) ifTrue:[
+                img extent ~= buttonSize ifTrue:[
+                    img := img magnifiedTo:buttonSize       
+                ]
             ].
             b form:img.
             b model:self; changeMessage:sel
@@ -1913,7 +1915,7 @@
 
     buttonPanel leftInset:spc; rightInset:spc.
 
-    "Modified: 18.4.1996 / 16:06:04 / cg"
+    "Modified: 29.5.1996 / 19:23:04 / cg"
 !
 
 setupDemoMenu
@@ -2635,5 +2637,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.133 1996-05-29 17:21:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.134 1996-05-29 17:23:22 cg Exp $'
 ! !