fix expand-imports' for renamed quote'

Closes PR 12235

Thanks to Carl for the report and test case

collects/racket/require-transform.rkt

@@ -93,7 +93,7 @@
               #f
               "invalid module-path form"
               stx))
-           (let ([namess (syntax-local-module-exports stx)])
+           (let ([namess (syntax-local-module-exports mod-path)])
              (values
               (apply
                append
@@ -112,7 +112,7 @@
                                             stx))
                              (cdr names))))
                     namess))
-              (list (make-import-source #'simple 0)))))]
+              (list (make-import-source (datum->syntax #'simple mod-path) 0)))))]
         [(id . rest)
          (identifier? #'id)
          (let ([t (syntax-local-value #'id (lambda () #f))])

collects/tests/racket/module.rktl

@@ -568,6 +568,36 @@
                         (require (filtered-in (lambda (n) foo) scheme))))
              exn:fail:contract:variable?)
 
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Check that `quote' can be renamed for use in
+;; require specs
+
+(parameterize ([current-namespace (make-base-namespace)])
+  (map 
+   eval
+   '((module service racket
+       (#%module-begin))
+     
+     (module good-client racket
+       (#%module-begin
+        (require (quote service))))
+     
+     (module another-good-client racket
+       (#%module-begin
+        (require
+         (rename-in racket/base
+                    [quote dynamic-in]))
+        (require
+         (dynamic-in service))))
+     
+     (module also-good-client racket
+       (#%module-begin
+        (require
+         (rename-in racket/base
+                    [quote dynamic-in]))
+        (require
+         (rename-in (dynamic-in service))))))))
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (report-errs)