From 4b9949c1692c6792257bd01b8f2b633d66749229 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 14 Jul 2003 17:44:55 +0000
Subject: [PATCH] .

original commit: 230ea85b0fd2177effb3cf27d1bb872a78c05f2a
---
 collects/mzlib/cm-accomplice.ss | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/cm-accomplice.ss b/collects/mzlib/cm-accomplice.ss
index 2cd62c6..d9ceaa9 100644
--- a/collects/mzlib/cm-accomplice.ss
+++ b/collects/mzlib/cm-accomplice.ss
@@ -5,8 +5,12 @@
     (unless (and (string? f)
 		 (complete-path? f))
       (raise-type-error 'register-external-file "complete-path string" f))
-    (let ([param (dynamic-require-for-syntax '(lib "cm-ctime.ss" "mzlib" "private")
-					     'current-external-file-registrar)])
+    (let ([param (lambda () void)])
+      (thread-wait 
+       (thread (lambda ()
+		 (set! param
+		       (dynamic-require '(lib "cm-ctime.ss" "mzlib" "private")
+					'current-external-file-registrar)))))
       ((param) f))))