diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index d86836ecb0..e62705f34f 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -282,7 +282,7 @@
                               (namespace-require 'scheme/base)
                               (compile 
                                `(namespace-require '',(string->symbol (path->string short-program-name))))))
-                          #:cmdline null))))
+                          #:cmdline '("-U" "--")))))
                     (let ([make-launcher (if gui? make-mred-launcher make-mzscheme-launcher)])
                       (make-launcher (list "-qt-" (path->string program-filename))
                                      executable-filename))))))))