Index: /release/1.2/source/lisp-kernel/thread_manager.c
===================================================================
--- /release/1.2/source/lisp-kernel/thread_manager.c	(revision 10177)
+++ /release/1.2/source/lisp-kernel/thread_manager.c	(revision 10178)
@@ -1533,4 +1533,6 @@
 lisp_suspend_other_threads()
 {
+  TCR *current = get_tcr(true);
+  LOCK(lisp_global(TCR_AREA_LOCK),current);
   suspend_other_threads(false);
 }
@@ -1568,5 +1570,7 @@
 lisp_resume_other_threads()
 {
+  TCR *current = get_tcr(true);
   resume_other_threads(false);
+  UNLOCK(lisp_global(TCR_AREA_LOCK),current);
 }