diff --git a/collects/drscheme/drscheme.filetypes b/collects/drscheme/drscheme.filetypes
index 7afec38eb5..84fef4d6cc 100644
--- a/collects/drscheme/drscheme.filetypes
+++ b/collects/drscheme/drscheme.filetypes
@@ -20,6 +20,8 @@
    (array "plt")))
  (("CFBundleTypeName"
    "Scheme Doc Source")
+  ("CFBundleTypeIconFile"
+   "doc")
   ("CFBundleTypeRole"
    "Viewer")
   ("CFBundleTypeOSTypes"
diff --git a/collects/launcher/launcher-unit.ss b/collects/launcher/launcher-unit.ss
index 9a81879f5d..87e38a7d07 100644
--- a/collects/launcher/launcher-unit.ss
+++ b/collects/launcher/launcher-unit.ss
@@ -3,6 +3,7 @@
 
 (require scheme/path
          scheme/file
+         scheme/list
 
          compiler/embed
          setup/dirs
@@ -582,7 +583,7 @@
                                     d))])
                          (list
                           (cons 'file-types d)
-                          (cons 'resource-files icon-files))))))))))
+                          (cons 'resource-files (remove-duplicates icon-files)))))))))))
        (let ([l (try 'file-types #".utiexports")])
          (if (null? l)
              l
diff --git a/collects/scribblings/mzc/launcher.scrbl b/collects/scribblings/mzc/launcher.scrbl
index dc65e4ae02..53b5561c24 100644
--- a/collects/scribblings/mzc/launcher.scrbl
+++ b/collects/scribblings/mzc/launcher.scrbl
@@ -258,8 +258,8 @@ The recognized suffixes are as follows:
  @item{@filepath{.filetypes} @'rarr @scheme['file-types] as
        @scheme[read] content (a single S-expression), and
        @scheme['resource-files] as a list constructed by finding
-       @scheme["CFBundleTypeIconFile"] entries in
-       @scheme['file-types]; for use under Mac OS X}
+       @scheme["CFBundleTypeIconFile"] entries in @scheme['file-types]
+       (and filtering duplicates); for use under Mac OS X}
 
  @item{@filepath{.utiexports} @'rarr @scheme['uti-exports] as
        @scheme[read] content (a single S-expression); for use under