diff --git a/racket/src/expander/expand/require.rkt b/racket/src/expander/expand/require.rkt index 0d86b7a568..63087de965 100644 --- a/racket/src/expander/expand/require.rkt +++ b/racket/src/expander/expand/require.rkt @@ -472,7 +472,7 @@ (define i-ns (namespace->module-namespace m-ns (module-path-index-resolve (module-binding-module binding)) (phase+ (phase- (module-binding-phase binding) phase-level) - phase-shift) + (namespace-phase m-ns)) #:complain-on-failure? #t)) (define val (namespace-get-variable i-ns (module-binding-phase binding) (module-binding-sym binding) (lambda () (error 'namespace-require/copy diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 07f72df150..934655f878 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -28685,7 +28685,9 @@ static const char *startup_source = "(let-values(((m-ns335_0) m-ns_0)" "((temp336_0)(1/module-path-index-resolve(module-binding-module binding_0)))" "((temp337_0)" -"(phase+(phase-(module-binding-phase binding_0) phase-level_0) phase-shift_0))" +"(phase+" +"(phase-(module-binding-phase binding_0) phase-level_0)" +"(namespace-phase m-ns_0)))" "((temp338_0) #t))" "(namespace->module-namespace82.1 #f temp338_0 unsafe-undefined m-ns335_0 temp336_0 temp337_0))))" "(let-values(((val_0)"