From 3fdd834c6c19cda78120c3ba460a36b1d2eb0f11 Mon Sep 17 00:00:00 2001
From: Philippe Mechai <philippe.mechai@gmail.com>
Date: Wed, 7 Nov 2012 19:17:09 +0100
Subject: [PATCH] add missing icon resizing in replace-icons

    When replacing icons in an exe file, if the icon is smaller than the target
size and it has an alpha mask it is not resized which lead to an error.
---
 collects/file/ico.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/file/ico.rkt b/collects/file/ico.rkt
index 3e3a8367ca..29eed5ef6c 100644
--- a/collects/file/ico.rkt
+++ b/collects/file/ico.rkt
@@ -243,7 +243,7 @@
                                                       (let ([mask (cvt mask)])
                                                         (build-ico exe-ico 
                                                                    (if has-alpha?
-                                                                       image
+                                                                       (cvt image)
                                                                        (mask->alpha (cvt image) mask))
                                                                    mask
                                                                    #t)))))))))])