diff --git a/racket/src/ChezScheme/c/schsig.c b/racket/src/ChezScheme/c/schsig.c index b3dd380c16..5715f3ada0 100644 --- a/racket/src/ChezScheme/c/schsig.c +++ b/racket/src/ChezScheme/c/schsig.c @@ -390,6 +390,9 @@ static void do_error(type, who, s, args) iptr type; const char *who, *s; ptr arg while (S_mutex_is_owner(&S_tc_mutex)) S_mutex_release(&S_tc_mutex); #endif /* PTHREADS */ + + /* in case error is during fasl read: */ + S_thread_end_code_write(); TRAP(tc) = (ptr)1; AC0(tc) = (ptr)1;