diff --git a/collects/compiler/decompile.rkt b/collects/compiler/decompile.rkt
index 502987e326..fdf1904256 100644
--- a/collects/compiler/decompile.rkt
+++ b/collects/compiler/decompile.rkt
@@ -163,14 +163,14 @@
    [(symbol? modidx) modidx]
    [else (collapse-module-path-index modidx (current-directory))]))
 
-(define (decompile-module mod-form orig-stack stx-ht name)
+(define (decompile-module mod-form orig-stack stx-ht mod-name)
   (match mod-form
     [(struct mod (name srcname self-modidx prefix provides requires body syntax-bodies unexported 
                        max-let-depth dummy lang-info internal-context pre-submodules post-submodules))
      (let-values ([(globs defns) (decompile-prefix prefix stx-ht)]
                   [(stack) (append '(#%modvars) orig-stack)]
                   [(closed) (make-hasheq)])
-       `(,name ,(if (symbol? name) name (last name)) .... ,internal-context
+       `(,mod-name ,(if (symbol? name) name (last name)) ....
           ,@defns
           ,@(for/list ([submod (in-list pre-submodules)])
               (decompile-module submod orig-stack stx-ht 'module))