diff --git a/racket/collects/setup/private/pkg-deps.rkt b/racket/collects/setup/private/pkg-deps.rkt index ffcd805291..8fcf3cdf5a 100644 --- a/racket/collects/setup/private/pkg-deps.rkt +++ b/racket/collects/setup/private/pkg-deps.rkt @@ -362,7 +362,7 @@ (define (check-bytecode-deps f dir coll-path pkg) (define zo-f (path-replace-extension f #".zo")) (when (file-exists? (build-path dir zo-f)) - (define base (let ([m (regexp-match #rx#"^(.*)_[a-z]+[.]zo$" + (define base (let ([m (regexp-match #rx#"^(.*)_[^_]+[.]zo$" (path-element->bytes zo-f))]) (and m (bytes->string/utf-8 (cadr m))))) (define in-mod `(lib ,(string-join