Index: /trunk/source/lisp-kernel/thread_manager.c
===================================================================
--- /trunk/source/lisp-kernel/thread_manager.c	(revision 13101)
+++ /trunk/source/lisp-kernel/thread_manager.c	(revision 13102)
@@ -106,8 +106,11 @@
        !((where < (pc) (ts->high)) &&
          (where >= (pc) (ts->low))))) {
+
+    target->interrupt_pending = (1LL << (nbits_in_word - 1LL));
+
+#if 0
     /* If the thread's in a blocking syscall, it'd be nice to
        get it out of that state here. */
     GetThreadIOPendingFlag(hthread,&io_pending);
-    target->interrupt_pending = (1LL << (nbits_in_word - 1LL));
     if (io_pending) {
       pending_io * pending = (pending_io *) (target->pending_io_info);
@@ -120,4 +123,5 @@
       }
     }
+#endif
     if (pCancelSynchronousIo) {
       pCancelSynchronousIo(hthread);