Name the event registered by block-on-io-descriptor.

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index e3bd9cc17c3a4b1e656a54c1292a7e697552c8f3..496a335607fe2ee363486f8fc191fb2b3c282a51 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -698,9 +698,8 @@ USA.
        (if registration (error "Re-entered block-on-io-descrptor."))
        (set! registration
             (register-io-thread-event descriptor mode (current-thread)
-                                      (lambda (mode)
-                                        (set! result mode)
-                                        unspecific))))
+                                      (named-lambda (block-on-io-event mode)
+                                        (set! result mode)))))
      (lambda ()
        (with-thread-events-blocked
        (lambda ()