Index: /trunk/source/lisp-kernel/pmcl-kernel.c
===================================================================
--- /trunk/source/lisp-kernel/pmcl-kernel.c	(revision 14643)
+++ /trunk/source/lisp-kernel/pmcl-kernel.c	(revision 14644)
@@ -1479,4 +1479,7 @@
     rcontext_readonly = true;
   }
+#endif
+#ifdef WIN_32
+  rcontext_readonly = true;
 #endif
   while (got == want) {