expander: fix sealed initial parameterization

racket/collects/racket/place/private/th-place.rkt

@@ -58,7 +58,7 @@
               (lambda ()
                 (with-continuation-mark
                     parameterization-key
-                    orig-paramz
+                    (get-original-parameterization)
                   (parameterize ([current-namespace (make-base-namespace)]
                                  [current-custodian cust]
                                  [exit-handler (lambda (v)

racket/src/expander/boot/handler.rkt

@@ -674,10 +674,15 @@
         (reparameterize 
          (continuation-mark-set-first #f parameterization-key))))
 
+(define (get-original-parameterization)
+  orig-paramz)
+
 ;; ----------------------------------------
 ;; For historical uses of '#%boot
 
 (define boot-primitives
   (hash 'boot boot
         'seal seal
-        'orig-paramz orig-paramz))
+        ;; Historically, exported a `orig-paramz` after place
+        ;; initialization, but we now need an indirection
+        'get-original-parameterization get-original-parameterization))

racket/src/racket/src/startup.inc

@@ -59963,7 +59963,10 @@ static const char *startup_source =
 "(define-values"
 "(seal)"
 "(lambda()(begin(set! orig-paramz(reparameterize(continuation-mark-set-first #f parameterization-key))))))"
-"(define-values(boot-primitives)(hash 'boot boot 'seal seal 'orig-paramz orig-paramz))"
+"(define-values(get-original-parameterization)(lambda()(begin orig-paramz)))"
+"(define-values"
+"(boot-primitives)"
+"(hash 'boot boot 'seal seal 'get-original-parameterization get-original-parameterization))"
 "(define-values"
 "(prepare-next-phase-namespace)"
 "(lambda(ctx_75)"