diff --git a/collects/mzscheme/installer.ss b/collects/mzscheme/installer.ss
index 08da2cf53e..d3c8c3453d 100644
--- a/collects/mzscheme/installer.ss
+++ b/collects/mzscheme/installer.ss
@@ -6,11 +6,12 @@
 (define (post-installer path)
   (define variants (available-mzscheme-variants))
   (for ([v (in-list variants)])
-    (create-embedding-executable	 
-     (mzscheme-program-launcher-path "MzScheme")
-     #:variant v
-     #:cmdline '("-I" "scheme/init")
-     #:launcher? #t
-     #:aux '((framework-root . #f)
-             (dll-dir . #f)
-             (relative? . #t)))))
+    (parameterize ([current-launcher-variant v])
+      (create-embedding-executable	 
+       (mzscheme-program-launcher-path "MzScheme")
+       #:variant v
+       #:cmdline '("-I" "scheme/init")
+       #:launcher? #t
+       #:aux '((framework-root . #f)
+               (dll-dir . #f)
+               (relative? . #t))))))