diff --git a/collects/mzlib/cm-accomplice.ss b/collects/mzlib/cm-accomplice.ss index 6d7e07e..6ab7898 100644 --- a/collects/mzlib/cm-accomplice.ss +++ b/collects/mzlib/cm-accomplice.ss @@ -9,10 +9,10 @@ ;; Load the code in a separate thread, so that the dynamic ;; extent of this one (likely a phase-sensitive macro expansion) ;; doesn't pollute the load: - (thread-wait + (thread-wait (thread (lambda () (set! param - (dynamic-require 'mzlib/private/cm-ctime + (dynamic-require 'compiler/private/cm-ctime 'current-external-file-registrar))))) ((param) f)))) diff --git a/collects/mzlib/cm.ss b/collects/mzlib/cm.ss index 4c9e151..3ab9f03 100644 --- a/collects/mzlib/cm.ss +++ b/collects/mzlib/cm.ss @@ -114,7 +114,7 @@ (define param ;; Avoid using cm while loading cm-ctime: (parameterize ([use-compiled-file-paths null]) - (dynamic-require 'mzlib/private/cm-ctime + (dynamic-require 'compiler/private/cm-ctime 'current-external-file-registrar))) (define external-deps null) (define (external-dep! p)