Fixes PR13450, thanks Matthew

2013-01-25 08:11:26 -07:00 · 2013-01-25 08:11:26 -07:00 · 49e517d362
commit 49e517d362
parent 8ce9b4eb10
1 changed files with 1 additions and 1 deletions
--- a/collects/web-server/lang/util.rkt
+++ b/collects/web-server/lang/util.rkt
@ -75,7 +75,7 @@
      (let ([stx (local-expand (quasisyntax/loc stx
                                 (#%module-begin (require web-server/lang/lang-api) forms ...))
                               'module-begin 
-                               empty)])
+                               (list #'module*))])
        (with-syntax ([(pmb body ...) (disarm stx)])
          (define base-labeling (make-labeling (string->bytes/utf-8 (format "~a" (syntax->datum stx)))))      
          (define new-defs