diff --git a/racket/lib/collects/setup/setup-unit.rkt b/racket/lib/collects/setup/setup-unit.rkt index b130c3f6d3..75fc2bec72 100644 --- a/racket/lib/collects/setup/setup-unit.rkt +++ b/racket/lib/collects/setup/setup-unit.rkt @@ -1058,13 +1058,15 @@ (when (file-exists? info-path) (get-info-ht c info-path 'relative)))) (unless (avoid-main-installation) - (define info-path (build-path (find-lib-dir) "info-cache.rktd")) + (define info-root (find-lib-dir)) + (define info-path (build-path info-root "info-cache.rktd")) (when (file-exists? info-path) - (get-info-ht #f info-path 'abs-in-relative))) + (get-info-ht info-root info-path 'abs-in-relative))) (when (make-user) - (define info-path (build-path (find-user-lib-dir) "info-cache.rktd")) + (define info-root (find-user-lib-dir)) + (define info-path (build-path info-root "info-cache.rktd")) (when (file-exists? info-path) - (get-info-ht #f info-path 'abs-in-relative)) + (get-info-ht info-root info-path 'abs-in-relative)) (define planet-info-path (get-planet-cache-path)) (when (file-exists? planet-info-path) (get-info-ht #f info-path 'abs))))