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)))))))))])